--- misc/mailinfo/mailinfo.pl	2001/07/19 14:28:22	1.3
+++ misc/mailinfo/mailinfo.pl	2001/07/19 16:45:48	1.4
@@ -9,7 +9,7 @@
 #  - T.D.Bishop@ukc.ac.uk
 #
 # $Author: tdb $
-# $Id: mailinfo.pl,v 1.3 2001/07/19 14:28:22 tdb Exp $
+# $Id: mailinfo.pl,v 1.4 2001/07/19 16:45:48 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -112,10 +112,10 @@ sub mailinfo() {
     while($response ne ".\n") {
         $response = <$sock>;
         if($response =~ s/^\?/mailinfo: /) {
-            print "$response";
+            print $response;
         }
         else {
-            print "$response" unless $response eq ".\n";
+            print $response unless $response eq ".\n";
         }
     }