X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FMIME.pm;h=e94733ee016db8de4213700a7581bb3b6a00e285;hb=82c16ff41e7bc03347c2d9c685e5af8f585f9f61;hp=c2faeaa8621b3f5c580beb5c450425c1d39f9b6c;hpb=bbc75bd2086151570f0d7f70c971618ec736a293;p=debbugs.git

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index c2faeaa..e94733e 100644
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -313,7 +313,7 @@ sub encode_rfc1522 {
 	       if (length $encoded > 75) {
 		    # Turn utf8 into the internal perl representation
 		    # so . is a character, not a byte.
-		    my $tempstr = decode_utf8($word,Encode::FB_DEFAULT);
+		    my $tempstr = is_utf8($word)?$word:decode_utf8($word,Encode::FB_DEFAULT);
 		    my @encoded;
 		    # Strip it into 10 character long segments, and encode
 		    # the segments