[Rt-commit] r8635 - rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt

[ruz at bestpractical.com]

Author: ruz
Date: Sat Aug 18 04:00:40 2007
New Revision: 8635

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm

Log:
* use more correct parsing API instead of hacks

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm	Sat Aug 18 04:00:40 2007
@@ -1076,11 +1076,9 @@
     }
 
     seek $tmp_fh, 0, 0;
-    my $parser = new MIME::Parser;
-    my $rt_parser = new RT::EmailParser;
-    $rt_parser->_SetupMIMEParser( $parser );
-    my $decrypted = $parser->parse( $tmp_fh );
-    $decrypted->{'__store_link_to_object_to_avoid_early_cleanup'} = $rt_parser;
+    my $parser = new RT::EmailParser;
+    my $decrypted = $parser->ParseMIMEEntityFromFileHandle( $tmp_fh, 0 );
+    $decrypted->{'__store_link_to_object_to_avoid_early_cleanup'} = $parser;
     $args{'Top'}->parts( [] );
     $args{'Top'}->add_part( $decrypted );
     $args{'Top'}->make_singlepart;