[Rt-commit] r19644 - rt/3.8/branches/forward-message-encoding/lib/RT/Interface

[falcone at bestpractical.com]

Author: falcone
Date: Tue May 12 18:09:36 2009
New Revision: 19644

Modified:
   rt/3.8/branches/forward-message-encoding/lib/RT/Interface/Email.pm

Log:
 r19576:  elacour | 2009-05-07 04:08:18 -0400
 Properly MIME encode (RFC 2047) headers of forwarded messages, so for example
 non ascii subject are properly displayed in MUA.


Modified: rt/3.8/branches/forward-message-encoding/lib/RT/Interface/Email.pm
==============================================================================
--- rt/3.8/branches/forward-message-encoding/lib/RT/Interface/Email.pm	(original)
+++ rt/3.8/branches/forward-message-encoding/lib/RT/Interface/Email.pm	Tue May 12 18:09:36 2009
@@ -622,7 +622,7 @@
         );
     }
 
-    $mail->head->set( $_ => $args{ $_ } )
+    $mail->head->set( $_ => Encode::encode('MIME-Header', $args{ $_ }) )
         foreach grep defined $args{$_}, qw(To Cc Bcc);
 
     $mail->attach(
@@ -643,8 +643,8 @@
         $from = $obj->QueueObj->CorrespondAddress
             || RT->Config->Get('CorrespondAddress');
     }
-    $mail->head->set( Subject => "Fwd: $subject" );
-    $mail->head->set( From    => $from );
+    $mail->head->set( Subject => Encode::encode('MIME-Header', "Fwd: $subject") );
+    $mail->head->set( From    => Encode::encode('MIME-Header', $from) );
 
     my $status = RT->Config->Get('ForwardFromUser')
         # never sign if we forward from User