diff options
| author | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-04 18:21:30 +0900 |
|---|---|---|
| committer | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-08 12:49:20 +0900 |
| commit | 699772a3b8d01460308bf58593f46e92f253628e (patch) | |
| tree | f3e0ad9408aa0ae7c1a8c4ad40f7dd28f6a7142a | |
| parent | 5c2490ddc3f6f0d3bb40f4809a95bf041e1c4f2b (diff) | |
| download | fml8-699772a3b8d01460308bf58593f46e92f253628e.tar.gz fml8-699772a3b8d01460308bf58593f46e92f253628e.tar.bz2 fml8-699772a3b8d01460308bf58593f46e92f253628e.zip | |
switched to use Mail::Message::Encode::Perl in From address parsing.
| -rw-r--r-- | fml/lib/Mail/Message/Utils.pm | 6 |
1 files 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); |