Changeset 2493

Timestamp:

2001-06-05T13:57:56+12:00 (23 years ago)

Author:

paynter

Message:

Changed at the request of Marcio - see mailing list.

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -110 +110 @@
     # Separate header from body of message
     my $Headers = $$textref;
-    $Headers =~ s/\n\n.*//s;
+    #$Headers =~ s/\n\n.*//s;  # This line changed at Marcio's request
+    $Headers =~ s/\x0a\x0d?\x0a.*//s;
     $$textref = substr $$textref, (length $Headers);
+
 
     # Extract basic metadata from header