X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fsend.pl;h=1ff843859e3d5b17cf800dc0c037dadc6d1fb5b1;hb=16b9415f38bf1b7eab1a9d2dc72abce9a643be09;hp=14913eab1afa6ada93f30ebe18f3242dc3782ed7;hpb=8aa1d223307c50d8bbaa0ed4ef915f8c7365bc6e;p=spider.git

diff --git a/cmd/send.pl b/cmd/send.pl
index 14913eab..1ff84385 100644
--- a/cmd/send.pl
+++ b/cmd/send.pl
@@ -49,8 +49,9 @@ if ($self->state eq "prompt") {
 		for ($i++ ; $i < @f; $i++) {
 			my $msgno = DXMsg::next_transno('Msgno');
 			my $newsubj = "CC: " . $oref->subject;
+			my $newcall = uc $f[$i];
 			my $nref = DXMsg->alloc($msgno, 
-									uc $f[$i], 
+									$newcall, 
 									$self->call,  
 									$main::systime, 
 									'1',  
@@ -68,8 +69,7 @@ if ($self->state eq "prompt") {
 			push @list, $oref->read_msg_body();
 			$nref->store(\@list);
 			$nref->add_dir();
-			push @out, $self->msg('m2', $oref->msgno, $to);
-#			push @out, "copy of msg $oref->{msgno} sent to $to";
+			push @out, $self->msg('m2', $oref->msgno, $newcall);
 		}
 		DXMsg::queue_msg();
 		return (1, @out);
@@ -127,7 +127,6 @@ if ($self->state eq "prompt") {
 			}
 		}
 		if (grep $_ eq $t, @DXMsg::badmsg) {
-#			push @out, "Sorry, $t is an unacceptable TO address";
 			push @out, $self->msg('m3', $t);
 		} else {
 			push @to, $t;
@@ -144,7 +143,6 @@ if ($self->state eq "prompt") {
 	$self->func("DXMsg::do_send_stuff");
 	$self->state('send1');
 	push @out, $self->msg('m1');
-	#push @out, "Enter Subject (30 characters) >";
 }
 
 return (1, @out);