(kill_spam): Display progress report since this can be a lengthy

operation with no output otherwise.

diff --git a/minc b/minc
index 4fc8582..49b9afe 100755 (executable)
--- a/minc
+++ b/minc
@@ -391,16 +391,22 @@ sub kill_spam {
     my @msglist = @_;
     my @result;
     my $msg;
     my @msglist = @_;
     my @result;
     my $msg;

+    my $i;

 
     @result = ();
 
 
     @result = ();
 

+    $i = 0;

     foreach $msg (@msglist) {
     foreach $msg (@msglist) {

+        printf('%sChecking for spam... %6d/%d',
+               "\r", ++$i, scalar(@msglist));

         if (is_spam($msg)) {
         if (is_spam($msg)) {

+            print(" SPAM\n");

             store_message($msg, 'SPAM');
         } else {
             push(@result, $msg);
         }
     }
             store_message($msg, 'SPAM');
         } else {
             push(@result, $msg);
         }
     }

+    print("\nDone: ", scalar(@result), "\n");

 
     return @result;
 }
 
     return @result;
 }