X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=t-prot;h=c4b06b2b358a8fd035e52197dee813ca71054197;hb=d4e206670862778bc0fdbf9b9c14c569db59265e;hp=bf3a0a199a20cb4d18beb5089fc1ce766665ce13;hpb=fa59d87d4825cc16e7d38d2f4e8b71cd057ee85f;p=pkg%2Ft-prot.git

diff --git a/t-prot b/t-prot
index bf3a0a1..c4b06b2 100755
--- a/t-prot
+++ b/t-prot
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
-# $Id: t-prot,v 1.261 2009/08/24 20:32:11 jochen Exp $
+# $Id: t-prot,v 1.264 2009/12/19 22:18:47 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.7';
+use constant VER            => '2.8';
 use constant REV            => '';
-use constant REL            => q$Revision: 1.261 $=~m/(\d+(?:\.\d+)+)/;
+use constant REL            => q$Revision: 1.264 $=~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';
@@ -442,23 +442,18 @@ sub process_msg {
     my (@ads, @hdr, @bo1, @bo2, @ftr, @sig, @vrb, @att) = 
         ((), (), (), (), (), (), (), (), ());
 
-    # First, remove and store lines we might need later...
+    # First, check msg length and stop processing if msg is too long:
+    if ((defined $maxlines) && (@$lines > $maxlines)) {
+        return;
+    }
+
+    # Remove and store lines we might need later...
     # Remove headers:
     if (!$nohdr) {
         for ($x=0; $x<$#$lines; $x++) { if (@$lines[$x] =~ /^$/) { last; }; }
-
-        # check body length and stop processing silently if msg is too long:
-        if ((defined $maxlines) && (@$lines-$x > $maxlines)) {
-            return;
-        }
-
         @hdr = @$lines[0..$x];
         splice(@$lines, 0, $x+1);
     }
-    elsif ((defined $maxlines) && (@$lines > $maxlines)) {
-        # check body length and stop processing silently if msg is too long:
-        return;
-    }
     # remember the original body lines count
     my $linecount = scalar(@$lines);