From 09e9e8b9dba58ae262c0ce664561373f4380205f Mon Sep 17 00:00:00 2001 From: "wurblzap%gmail.com" <> Date: Wed, 9 Apr 2008 19:27:32 +0000 Subject: Bug 311563 – Make whining permit utf8 in whining reports. Patch by Marc Schumann ; r=mkanat; a=LpSolit MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bugzilla/Mailer.pm | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) (limited to 'Bugzilla/Mailer.pm') diff --git a/Bugzilla/Mailer.pm b/Bugzilla/Mailer.pm index 9330486db..5c7a75450 100644 --- a/Bugzilla/Mailer.pm +++ b/Bugzilla/Mailer.pm @@ -57,18 +57,24 @@ sub MessageToMTA { return if $method eq 'None'; my $email = ref($msg) ? $msg : Email::MIME->new($msg); - foreach my $part ($email->parts) { - 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); + $email->walk_parts(sub { + my ($part) = @_; + return if $part->parts > 1; # Top-level + my $content_type = $part->content_type || ''; + if ($content_type !~ /;/) { + my $body = $part->body; + 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($body); } - $part->encoding_set('quoted-printable') if !is_7bit_clean($part->body); - } + }); # MIME-Version must be set otherwise some mailsystems ignore the charset $email->header_set('MIME-Version', '1.0') if !$email->header('MIME-Version'); -- cgit v1.2.3-24-g4f1b