[Rt-commit] r8630 - rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface

[ruz at bestpractical.com]

Author: ruz
Date: Sat Aug 18 01:56:28 2007
New Revision: 8630

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Email.pm

Log:
::Interface::Email::Gateway()
* run 'ApplyBeforeDecode' plugins before decoding bodies and before playing
  with charsets, after that decode bodies, convert charsets and apply other
  plugins


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Email.pm	Sat Aug 18 01:56:28 2007
@@ -1003,7 +1003,11 @@
     }
 
     my $parser = RT::EmailParser->new();
-    $parser->SmartParseMIMEEntityFromScalar( Message => $args{'message'}, Decode => 0 );
+    $parser->SmartParseMIMEEntityFromScalar(
+        Message => $args{'message'},
+        Decode => 0,
+        Exact => 1,
+    );
 
     my $Message = $parser->Entity();
     unless ($Message) {
@@ -1055,6 +1059,7 @@
         }
     }
     @mail_plugins = grep !$skip_plugin{"$_"}, @mail_plugins;
+    $parser->_DecodeBodies;
     $parser->_PostProcessNewEntity;
 
     my $head = $Message->head;