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

[ruz at bestpractical.com]

Author: ruz
Date: Mon Apr 16 09:05:16 2007
New Revision: 7520

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

Log:
 r4940 at cubic-pc:  cubic | 2007-04-16 15:05:50 +0400
 * use new function to get errors handling and reporting


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	Mon Apr 16 09:05:16 2007
@@ -347,13 +347,8 @@
             }
         }
 
-        if ( $crypt{'Sign'} || $crypt{'Encrypt'} ) {
-            require RT::Crypt::GnuPG;
-            my %res = RT::Crypt::GnuPG::SignEncrypt(
-                %crypt, Entity => $args{'Entity'},
-            );
-            return 0 if $res{'exit_code'};
-        }
+        my $res = SignEncrypt( %args, %crypt );
+        return $res unless $res > 0;
     }
 
     my $msgid = $args{'Entity'}->head->get('Message-ID') || '';