(MAIN): Drop unnecessary variable @msglist.

diff --git a/minc b/minc
index d008d66..137f436 100755 (executable)
--- a/minc
+++ b/minc
@@ -588,7 +588,6 @@ sub filter_mail {
 
 \f
 MAIN: {
 
 \f
 MAIN: {

-    my @msglist;

     my $st;
 
     if ($dumpfilters) {
     my $st;
 
     if ($dumpfilters) {


@@ -597,8 +596,7 @@ MAIN: {
         exit;
     }
 
         exit;
     }
 

-    @msglist = (
-                map { $_->[1] }
+    filter_mail(map { $_->[1] }

                 sort { $a->[0] <=> $b->[0] }
                 map {
                     if (not ($st = stat($_))) {
                 sort { $a->[0] <=> $b->[0] }
                 map {
                     if (not ($st = stat($_))) {


@@ -608,8 +606,6 @@ MAIN: {
                 }
                 getfiles("$MAILDIR/new"));
 
                 }
                 getfiles("$MAILDIR/new"));
 

-    filter_mail(@msglist);
-

     @SPAM and (exec('scan', '+SPAM', @SPAM) or die);
 }
 
     @SPAM and (exec('scan', '+SPAM', @SPAM) or die);
 }