X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=t-prot;h=c67f94b9eeda32033ded9d3abcf49fae8d1be317;hb=afc6f7175ce2809eab34f213614ac478cbbf0ac3;hp=441cd90e074baca84affc7e7c4746136c4a121ff;hpb=7eb2d70aa363bf51546b17381ef90cff6126781a;p=pkg%2Ft-prot.git

diff --git a/t-prot b/t-prot
index 441cd90..c67f94b 100755
--- a/t-prot
+++ b/t-prot
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
-# $Id: t-prot,v 1.269 2010/01/05 12:05:03 jochen Exp $
+# $Id: t-prot,v 1.271 2010/01/08 11:10:26 jochen Exp $
 
 require 5.006;
 use strict;
 use Fcntl qw(O_EXCL O_WRONLY O_CREAT);
 use Getopt::Mixed qw(nextOption);
-use constant VER            => '2.11';
+use constant VER            => '2.12';
 use constant REV            => '';
-use constant REL            => q$Revision: 1.269 $=~m/(\d+(?:\.\d+)+)/;
+use constant REL            => q$Revision: 1.271 $=~m/(\d+(?:\.\d+)+)/;
 # MTA expecting mail on STDIN
 # (you might have to adjust this if using a different MTA)
 use constant SENDMAIL       => '/usr/sbin/sendmail -oi';
@@ -1069,8 +1069,19 @@ close IN;
 # First, check msg length and stop processing if msg is too long:
 if ((defined $maxlines) && (@message > $maxlines)) {
     if ($ofile ne 'NONE') {
+        if ($mua eq 'mutt') {
+            my $x = 0;
+            if (!$nohdr) {
+                do { $x++; } while ($x<$#message && $message[$x]!~/^$/);
+                $x++;
+            }
+            splice(@message, $x, 0,
+                ("[---=| Processing by $0 skipped: message too long |=---]\n\n"));
+        }
+
         write_msg(($mda?'|'.SENDMAIL." $mda":">$ofile"), \@message);
     }
+    if ($mua eq 'mutt') { exit(EX_OK); }
     exit(EX_DATAERR);
 }