From 3f94214af2e2ec758a0b126aa3ef70be6544aaa9 Mon Sep 17 00:00:00 2001
From: "mkanat%bugzilla.org" <>
Date: Fri, 14 Dec 2007 11:05:10 +0000
Subject: Bug 405362: Bugzilla::Mailer couldn't handle utf-8 strings in the
 body, because encoding_set doesn't understand utf8 perl strings. Patch By Max
 Kanat-Alexander <mkanat@bugzilla.org> r=wurblzap, a=mkanat

---
 Bugzilla/Mailer.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'Bugzilla/Mailer.pm')

diff --git a/Bugzilla/Mailer.pm b/Bugzilla/Mailer.pm
index a8ab64913..0040c855e 100644
--- a/Bugzilla/Mailer.pm
+++ b/Bugzilla/Mailer.pm
@@ -57,7 +57,15 @@ sub MessageToMTA {
 
     my $email = ref($msg) ? $msg : Email::MIME->new($msg);
     foreach my $part ($email->parts) {
-        $part->charset_set('UTF-8') if Bugzilla->params->{'utf8'};
+        if (Bugzilla->params->{'utf8'}) {
+            $part->charset_set('UTF-8');
+            # encoding_set works only with bytes, not with utf8 strings.
+            my $raw = $part->body_raw;
+            if (utf8::is_utf8($raw)) {
+                utf8::encode($raw);
+                $part->body_set($raw);
+            }
+        }
         $part->encoding_set('quoted-printable') if !is_7bit_clean($part->body);
     }
 
-- 
cgit v1.2.3-24-g4f1b