Changeset 4089 for trunk/gsdl/perllib

Timestamp:

2003-04-07T14:27:48+12:00 (21 years ago)

Author:

jrm21

Message:

added "\n" to headers as we weren't picking up messages that were only
sent as text/html content type (as opposed to multipart/mixed)

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -192 +192 @@
     $Headers =~ s/\r?\n\r?\n(.*)$//s;
     $$textref = $1;
+    $Headers .= "\n";
     
     # Unfold headers - see rfc822
@@ -896 +897 @@
   $charset=~s/ks_c_5601_1987/korean/;
 
-  if ($charset eq "utf_8") {
+  if ($charset eq "utf_8" || !$$textref) {
       # nothing to do!
       return;