(filter_mail): Catch (and discard) exceptions when subject and from

headers don't exist.

diff --git a/minc b/minc
index 39ed230..ca4b9b3 100755 (executable)
--- a/minc
+++ b/minc
@@ -570,8 +570,11 @@ sub filter_mail {
             $spam++;
         } else {
             $saved++;
             $spam++;
         } else {
             $saved++;

-            my $from = [@{$headers{'from'}}]->[-1];
-            my $subject = [@{$headers{'subject'}}]->[-1];
+            my $from = '';
+            my $subject = '';
+            # Sometimes these headers are missing...
+            eval { $from = [@{$headers{'from'}}]->[-1] };
+            eval { $subject = [@{$headers{'subject'}}]->[-1] };

             for ($from, $subject) {
                 tr/\x00-\x1f\x80-\xff/ /;
             }
             for ($from, $subject) {
                 tr/\x00-\x1f\x80-\xff/ /;
             }