[Rt-commit] r10385 - rt/branches/3.7-RTIR-RELENG/lib/RT/Action

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jan 17 19:33:53 2008
New Revision: 10385

Modified:
   rt/branches/3.7-RTIR-RELENG/lib/RT/Action/SendEmail.pm

Log:
* encrypt outgoing notification if original email is encrypted

Modified: rt/branches/3.7-RTIR-RELENG/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/3.7-RTIR-RELENG/lib/RT/Action/SendEmail.pm	Thu Jan 17 19:33:53 2008
@@ -205,8 +205,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