From b327c4b84c2024fca0a211e0cfd5e272281efb53 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 7 Jul 2012 11:57:32 -0700
Subject: [PATCH] decode_rfc1522 now outputs perl internal format

---
 Debbugs/MIME.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index 6406276..bc47ca3 100644
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -229,9 +229,7 @@ sub convert_to_utf8 {
      return $data if $charset eq 'raw' or is_utf8($data,1);
      my $result;
      eval {
-	  # this encode/decode madness is to make sure that the data
-	  # really is valid utf8 and that the is_utf8 flag is off.
-	  $result = encode("utf8",decode($charset,$data))
+	 $result = decode($charset,$data);
      };
      if ($@) {
 	  warn "Unable to decode charset; '$charset' and '$data': $@";
-- 
2.39.2