(filter_mail): DOH! Sanitize subject, too.

diff --git a/minc b/minc
index ae72ed59896ac192a5c86e0efa2101a2196d65c3..47a5d70e0afcf474c5e4fd2382128e3dc41fcfbf 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",