X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ed5e417150724e9c1bb91ce75efeee1a4de2cba8;hb=fa57f72c26032aae4c1a20358e829ba9afbf460c;hp=b8b9b892d47397d42937608114e6b8a0965c6f71;hpb=84d5fec90a21118c556d22b8b36b02c93bc829f1;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b8b9b892..ed5e4171 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -295,7 +295,11 @@ sub normal
 		}
 		
 		if ($pcno == 22) {
-			last SWITCH;
+			$self->state('normal');
+			
+			# queue mail
+			DXMsg::queue_msg();
+			return;
 		}
 		
 		if ($pcno == 23 || $pcno == 27) { # WWV info