Bug #6130 - Letters: Fixing Subject encoding

Signed-off-by: Stéphane Delaune <stephane.delaune@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 269ec78..c894a57 100644 (file)
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -816,7 +816,9 @@ sub _send_message_by_email ($;$$$) {
         }
     }
 
-       my $content = encode('utf8', $message->{'content'});
+    my $utf8   = decode('MIME-Header', $message->{'subject'} );
+    $message->{subject}= encode('MIME-Header', $utf8);
+    my $content = encode('utf8', $message->{'content'});
     my %sendmail_params = (
         To   => $to_address,
         From => $message->{'from_address'} || C4::Context->preference('KohaAdminEmailAddress'),