(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 $i;
 
     @result = ();
 
+    $i = 0;
     foreach $msg (@msglist) {
+        printf('%sChecking for spam... %6d/%d',
+               "\r", ++$i, scalar(@msglist));
         if (is_spam($msg)) {
+            print(" SPAM\n");
             store_message($msg, 'SPAM');
         } else {
             push(@result, $msg);
         }
     }
+    print("\nDone: ", scalar(@result), "\n");
 
     return @result;
 }