Imported Upstream version 3.3

diff --git a/ChangeLog b/ChangeLog
index 6a1678fb319d30784875a5019279efbdb903e20a..58c1610695e48bb5b3ca5561e7044f82bfa83d8e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,21 @@
+2014-09-22 16:27  Jochen Striepe  <jochen>
+
+       * t-prot: Release as version 3.3.
+
+2014-09-22 12:39  Jochen Striepe  <jochen>
+
+       * t-prot: Removed trailing whitespace.
+
+2014-09-22 11:21  Jochen Striepe  <jochen>
+
+       * t-prot: Small speedup: Run --pgp-short specific code only with
+         --pgp-short.
+
+2014-09-22 11:05  Jochen Striepe  <jochen>
+
+       * t-prot: Fixed a bug with -Mmutt and pgp signed and encrypted
+         MIME/Multipart messages.  Thanks to Axel Beckert for reporting!
+
 2014-08-22 10:58  Jochen Striepe  <jochen>
 
        * t-prot: Release as version 3.2.

diff --git a/t-prot b/t-prot
index 46b274995265eb3b87b6eb90fb00d9909f9705e5..dee0e4f6e7b16e49cc02e03ecf0c5ebb9fd9891c 100755 (executable)
--- a/t-prot
+++ b/t-prot
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
-# $Id: t-prot,v 1.324 2014/08/22 08:58:19 jochen Exp $
+# $Id: t-prot,v 1.328 2014/09/22 14:27:35 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.2';
+use constant VER            => '3.3';
 use constant REV            => '';
-use constant REL            => q$Revision: 1.324 $=~m/(\d+(?:\.\d+)+)/;
+use constant REL            => q$Revision: 1.328 $=~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';
@@ -418,16 +418,21 @@ sub pgp {
         if ($$L[$x]=~/^(?:\e[^\a]+\a)?
                        (?:\Q$mutt_pgpoutstart\E|\Q$mutt_ssloutstart\E)/ox) {
             my $from;
-            for (my $m=0; $m<scalar(@$H); $m++) {
-                if (index($$H[$m], 'From:')==0) {
-                    $from = $$H[$m];
-                    $m++;
-                    while (exists($$H[$m]) && $$H[$m] =~ /^\s/)
-                        { $from .= $$H[$m]; $m++; }
-                    last;
+            if ($pgpshort) {
+                for (my $m=0; $m<scalar(@$H); $m++) {
+                    if (index($$H[$m], 'From:')==0) {
+                        $from = $$H[$m];
+                        $m++;
+                        while (exists($$H[$m]) && $$H[$m] =~ /^\s/)
+                            { $from .= $$H[$m]; $m++; }
+                        last;
+                    }
+                }
+                if (defined($from)) {
+                    ($from) =
+                        $from=~m/(\w[\w.+-]*@(?:[\w.+-]+\.)+[A-Za-z]{2,})/;
                 }
             }
-            ($from) = $from=~m/(\w[\w.+-]*@(?:[\w.+-]+\.)+[A-Za-z]{2,})/;
 
             my $uid = 1;
 
@@ -435,7 +440,8 @@ sub pgp {
                 if ($pgpshort && index($$L[$i], "gpg: $gpg_aka")==0) {
                     $uid++;
 
-                    if ($uid>1 && index($$L[$i], $from)<0) { 
+                    if (!defined($from) ||
+                       ($uid>1 && index($$L[$i], $from)<0)) {
                         splice(@$L, $i, 1);
                         splice(@$V, $i, 1);
                         $i--;