Don't try \r line-erasing tricks if stdout is not a tty.

diff --git a/minc b/minc
index 1ec929a..eec56e4 100755 (executable)
--- a/minc
+++ b/minc
@@ -636,6 +636,12 @@ sub filter_mail {
         }
     }
 
         }
     }
 

+    my $tty = -t STDOUT;
+    if (not $tty) {
+        # Print a newline after the incomplete "N messages..." line.
+        print("\n");
+    }
+

     for $msg (@_) {
         ($msg eq '.' or $msg eq '..') and next;
 
     for $msg (@_) {
         ($msg eq '.' or $msg eq '..') and next;
 


@@ -653,9 +659,12 @@ sub filter_mail {
         $msgnum = store_message($msg, $mhfolder);
         $folders{$mhfolder}++;
 
         $msgnum = store_message($msg, $mhfolder);
         $folders{$mhfolder}++;
 

+        if ($tty) {
+            print("\r");
+        }
+

         if ($mhfolder eq 'SPAM') {
             $spam++;
         if ($mhfolder eq 'SPAM') {
             $spam++;

-            print("\r");

         } else {
             $saved++;
             my $from = '';
         } else {
             $saved++;
             my $from = '';


@@ -666,7 +675,7 @@ sub filter_mail {
             for ($from, $subject) {
                 tr/\x00-\x1f\x80-\xff/ /;
             }
             for ($from, $subject) {
                 tr/\x00-\x1f\x80-\xff/ /;
             }

-            printf("\r\%-${nf}s \%${nm}d \%-${nF}s \%s\n",
+            printf("\%-${nf}s \%${nm}d \%-${nF}s \%s\n",

                    substr($mhfolder, 0, $nf), substr($msgnum, 0, $nm),
                    substr($from, 0, $nF),
                    substr($subject, 0, $ns));
                    substr($mhfolder, 0, $nf), substr($msgnum, 0, $nm),
                    substr($from, 0, $nF),
                    substr($subject, 0, $ns));


@@ -676,8 +685,10 @@ sub filter_mail {
             $hook->(\%batons, \%headers, $mhfolder, $msgnum);
         }
 
             $hook->(\%batons, \%headers, $mhfolder, $msgnum);
         }
 

-        printf(" \%${len}d SPAM \%${len}d saved \%${len}d/%1d",
-               $spam, $saved, $spam + $saved, $msgcount);
+        if ($tty) {
+            printf(" \%${len}d SPAM \%${len}d saved \%${len}d/%1d",
+                   $spam, $saved, $spam + $saved, $msgcount);
+        }

 
         defined($maxmsgs) and ($spam + $saved < $maxmsgs or last);
     }
 
         defined($maxmsgs) and ($spam + $saved < $maxmsgs or last);
     }