Bug 405362: Bugzilla::Mailer couldn't handle utf-8 strings in the body, because…

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

Bug 405362: Bugzilla::Mailer couldn't handle utf-8 strings in the body, because…
3f94214a · mkanat%bugzilla.org · 173ef813 · 3f94214a
Commit 3f94214a authored Dec 14, 2007 by mkanat%bugzilla.org
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 1 deletion

Mailer.pm Bugzilla/Mailer.pm +9 -1

No files found.
--- 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);
    }