(filter_mail): DOH! Sanitize subject, too.

diff --git a/minc b/minc
index ae72ed5..47a5d70 100755 (executable)
--- a/minc
+++ b/minc
@@ -1,4 +1,4 @@
-#! /usr/bin/env perl
+#! /home/epg/Linux-ix86/pkg-2005Q2/bin/perl

 
 # $Id$
 
 
 # $Id$
 


@@ -585,6 +585,7 @@ sub filter_mail {
             my $from = [@{$headers{'from'}}]->[-1];
             my $subject = [@{$headers{'subject'}}]->[-1];
             $from =~ s/[[:cntrl:]]/?/g;
             my $from = [@{$headers{'from'}}]->[-1];
             my $subject = [@{$headers{'subject'}}]->[-1];
             $from =~ s/[[:cntrl:]]/?/g;

+            $subject =~ s/[[:cntrl:]]/?/g;

             print("\r");
             print(' ' x $COLUMNS);
             printf("\r\%-${nf}s \%${nm}d \%-${nF}s \%s\n",
             print("\r");
             print(' ' x $COLUMNS);
             printf("\r\%-${nf}s \%${nm}d \%-${nF}s \%s\n",