summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xrobotfmt.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/robotfmt.pl b/robotfmt.pl
index 9542bdf..764bb4c 100755
--- a/robotfmt.pl
+++ b/robotfmt.pl
@@ -5,7 +5,7 @@
use Email::Valid;
use URI::Escape;
-use Encode qw(encode decode);
+use MIME::EncWords;
($rev, $branches) = @ARGV;
@@ -113,7 +113,7 @@ while (defined($l = <LOG>)) {
# Strip quotes in From: if author string seems safe
$l = "From: $1 $2";
}
- $l = encode('MIME-Header', $l);
+ $l = MIME::EncWords::encode_mimewords($l, Charset => 'UTF-8');
} else {
if ($l =~ /^([a-z-]+-by|Cc|Author):\s.*<([^\>]+)>\s*$/i) {
$e = $2;