From 699772a3b8d01460308bf58593f46e92f253628e Mon Sep 17 00:00:00 2001
From: Ken'ichi Fukamachi <fukachan@fml.org>
Date: Tue, 4 Sep 2018 18:21:30 +0900
Subject: switched to use Mail::Message::Encode::Perl in From address parsing.

---
 fml/lib/Mail/Message/Utils.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fml/lib/Mail/Message/Utils.pm b/fml/lib/Mail/Message/Utils.pm
index 5a944185..8389c4d8 100644
--- a/fml/lib/Mail/Message/Utils.pm
+++ b/fml/lib/Mail/Message/Utils.pm
@@ -70,12 +70,12 @@ sub from_address_to_name
     use Mail::Address;
     my (@addrs) = Mail::Address->parse($address);
 
-    use Mail::Message::Encode;
-    my $encode = new Mail::Message::Encode;
+    use Mail::Message::Encode::Perl;
+    my $encode = new Mail::Message::Encode::Perl;
 
     for my $addr (@addrs) {
 	if (defined( $addr->phrase() )) {
-	    my $phrase = $encode->decode_mime_string( $addr->phrase() );
+	    my $phrase = $encode->mime_header_decode( $addr->phrase() );
 
 	    if ($phrase) {
 		return($phrase);
-- 
cgit v1.2.1