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

[ruz at bestpractical.com]

Author: ruz
Date: Sat Jan 26 20:00:47 2008
New Revision: 10504

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

Log:
 r10419 at cubic-pc (orig r10385):  ruz | 2008-01-18 03:33:53 +0300
 * encrypt outgoing notification if original email is encrypted


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/SendEmail.pm	Sat Jan 26 20:00:47 2008
@@ -218,8 +218,13 @@
 
     $self->AddTickets;
 
-    return $result;
+    my $attachment = $self->TransactionObj->Attachments->First;
+    if ( $attachment && !( $attachment->GetHeader('X-RT-Encrypt') || $self->TicketObj->QueueObj->Encrypt ) ) {
+        $attachment->SetHeader( 'X-RT-Encrypt' => 1 )
+            if $attachment->GetHeader("X-RT-Incoming-Encryption")||'' eq 'Success';
+    }
 
+    return $result;
 }
 
 =head2 To