--- misc/mailinfo/mailinfo.pl	2001/07/31 14:49:47	1.5
+++ misc/mailinfo/mailinfo.pl	2001/10/15 16:29:03	1.6
@@ -9,7 +9,7 @@
 #  - T.D.Bishop@ukc.ac.uk
 #
 # $Author: tdb $
-# $Id: mailinfo.pl,v 1.5 2001/07/31 14:49:47 tdb Exp $
+# $Id: mailinfo.pl,v 1.6 2001/10/15 16:29:03 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -107,6 +107,7 @@ sub mailinfo() {
     
     # send the query
     print $sock "$mode $name\n";
+    $response = "";
     
     # read and print the response    
     while($response ne ".\n") {