Imported Upstream version 3.2

[pkg/t-prot.git] / t-prot

diff --git a/t-prot b/t-prot
index e3171624af13d88557be9e96c660476c7d0c4ae2..46b274995265eb3b87b6eb90fb00d9909f9705e5 100755 (executable)
--- a/t-prot
+++ b/t-prot
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
-# $Id: t-prot,v 1.322 2014/08/18 15:14:36 jochen Exp $
+# $Id: t-prot,v 1.324 2014/08/22 08:58:19 jochen Exp $
 
 require 5.006;
 use strict;
 use Fcntl qw(O_EXCL O_WRONLY O_CREAT);
 use Getopt::Long qw(:config gnu_getopt no_ignore_case);
-use constant VER            => '3.1';
+use constant VER            => '3.2';
 use constant REV            => '';
-use constant REL            => q$Revision: 1.322 $=~m/(\d+(?:\.\d+)+)/;
+use constant REL            => q$Revision: 1.324 $=~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';
@@ -837,7 +837,7 @@ sub process_msg {
                              $$lines[$x] =~ /^>>> On [A-Z][a-z][a-z]?, [A-Z][a-z][a-z]? \d\d?, \d\d\d\d at [ \d]\d:\d\d [AP]M, in message/))) { 
                         $x++;
                         $trad = 0;
-                        $bigqn = 0;
+                        if ($k) { $bigqn = 0; }
                         last DONE; 
                     }
                 }