From 7c3069b273534b46fbc9b7745b0d48e68b6bf832 Mon Sep 17 00:00:00 2001
From: "mkanat%bugzilla.org" <>
Date: Mon, 24 Sep 2007 02:52:51 +0000
Subject: Bug 369835: email_in.pl should convert character encoding to utf8
 Patch By Fedor Ezeev <fe@alterplast.ru> r=mkanat, a=mkanat

---
 email_in.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'email_in.pl')

diff --git a/email_in.pl b/email_in.pl
index be9abadea..ea5082844 100644
--- a/email_in.pl
+++ b/email_in.pl
@@ -36,6 +36,7 @@ use Email::MIME;
 use Email::MIME::Attachment::Stripper;
 use Getopt::Long qw(:config bundling);
 use Pod::Usage;
+use Encode qw(encode decode);
 
 use Bugzilla;
 use Bugzilla::Bug qw(ValidateBugID);
@@ -295,9 +296,17 @@ sub get_text_alternative {
     my $body;
     foreach my $part (@parts) {
         my $ct = $part->content_type || 'text/plain';
+        my $charset = 'iso-8859-1';
+        if ($ct =~ /charset=([^;]+)/) {
+            $charset= $1;
+        }
         debug_print("Part Content-Type: $ct", 2);
+        debug_print("Part Character Encoding: $charset", 2);
         if (!$ct || $ct =~ /^text\/plain/i) {
             $body = $part->body;
+            if (Bugzilla->params->{'utf8'}) {
+                $body = encode('UTF-8', decode($charset, $body));
+            }
             last;
         }
     }
-- 
cgit v1.2.3-24-g4f1b