Changeset 3352

Timestamp:

2002-08-14T16:46:11+12:00 (22 years ago)

Author:

jrm21

Message:

We can now properly handle messages with a content type of "multipart/signed"
for messages using PGP/GPG key signing.

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -499 +499 @@
         $text=$part_text;
         }
-    } elsif ($mimetype =~ m@multipart/(mixed|digest|related)@) {
+    } elsif ($mimetype =~ m@multipart/(mixed|digest|related|signed)@) {
         $text="";
+        # signed is for PGP/GPG messages... the last part is a hash
+        if ($mimetype =~ m@multipart/signed@) {
+        pop @message_parts;
+        }
         foreach my $message_part (@message_parts) {
         my $part_header=$message_part;