From f04ec95fe999a857f0f0c9e08e0f0bfd808ada32 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 3 Oct 2001 10:08:39 +0000
Subject: [PATCH] make sure that @WWW is completely ignored

---
 Changes       | 2 ++
 cmd/send.pl   | 2 +-
 perl/DXMsg.pm | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index a87e9ec9..19fe2f4f 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+03Oct01=======================================================================
+1. don't allow @WWW to become a 'TO' field...
 02Oct01=======================================================================
 1. fixed the 'ever lengthening msg' syndrome and probably made the whole
 thing more reliable at the same time.
diff --git a/cmd/send.pl b/cmd/send.pl
index d6e502cd..c3ff8583 100644
--- a/cmd/send.pl
+++ b/cmd/send.pl
@@ -95,7 +95,7 @@ if ($self->state eq "prompt") {
 		} elsif ($f eq '<' && @f) {     # this is bbs syntax  for from call
 			$loc->{from} = uc shift @f;
 		} elsif ($f eq '@' && @f) {       # this is bbs syntax, for send it 'to node'
-			;
+			shift @f;
 		} elsif ($f =~ /^\$/) {     # this is bbs syntax  for a bid
 			next;
 		} elsif ($f =~ /^<\S+/) {     # this is bbs syntax  for from call
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index bd611876..46280dfa 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -1225,7 +1225,7 @@ sub import_one
 		} elsif ($notincalls && ($f eq 'RR')) {
 			$rr = '1';
 		} elsif ($f eq '@' && @f) {       # this is bbs syntax, for AT
-			next;
+			shift @f;
 		} elsif ($f eq '<' && @f) {     # this is bbs syntax  for from call
 			$from = uc shift @f;
 		} elsif ($f =~ /^\$/) {     # this is bbs syntax  for a bid
-- 
2.43.0