X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=8dcb09924630aab7de7c3a3547b6988f54dd75fc;hb=4647d4d8a9a97117b29c7b3a0477de2e76c01194;hp=45f3afb9b6d9bd408198879277421f9d94e33ba9;hpb=e12684676deb425c533e895b5ae63b2b2e2b6891;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 45f3afb9..8dcb0992 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -626,7 +626,8 @@ sub init
 	opendir($dir, $msgdir) or confess "can't open $msgdir $!";
 	@dir = readdir($dir);
 	closedir($dir);
-	
+
+	@msg = ();
 	for (sort @dir) {
 		next if /^\./o;
 		next if ! /^m\d+/o;