[Rt-commit] r7540 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr 18 10:50:46 2007
New Revision: 7540

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm

Log:
 r4973 at cubic-pc:  cubic | 2007-04-18 18:03:30 +0400
 * we need real object, the method doesn't work as class-method


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	Wed Apr 18 10:50:46 2007
@@ -544,8 +544,10 @@
 
     seek $tmp_fh, 0, 0;
     my $parser = new MIME::Parser;
-    RT::EmailParser->_SetupMIMEParser( $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;
     $args{'Top'}->parts( [] );
     $args{'Top'}->add_part( $decrypted );
     $args{'Top'}->make_singlepart;