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/Install/Requirements.pm | 6 +++++- Bugzilla/Mailer.pm | 26 ++++++++++++++++---------- 2 files changed, 21 insertions(+), 11 deletions(-) (limited to 'Bugzilla') diff --git a/Bugzilla/Install/Requirements.pm b/Bugzilla/Install/Requirements.pm index 0bfa9ec87..b8695c824 100644 --- a/Bugzilla/Install/Requirements.pm +++ b/Bugzilla/Install/Requirements.pm @@ -89,7 +89,11 @@ sub REQUIRED_MODULES { version => ON_WINDOWS ? '2.16' : '2.00' }, { - # This will pull in Email::MIME for us, also. + package => 'Email-MIME', + module => 'Email::MIME', + version => '1.861' + }, + { package => 'Email-MIME-Modifier', module => 'Email::MIME::Modifier', version => 0 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