diff options
| author | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-07 17:35:25 +0900 |
|---|---|---|
| committer | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-08 12:49:20 +0900 |
| commit | f3637139daf2b9f6156673ef8b05e104a6ff0dd7 (patch) | |
| tree | 4cc77271478a8393d41b3a2440715762c9360e4d | |
| parent | 63ea732501a38243282b069fe32c50bdae3cc12c (diff) | |
| download | fml8-f3637139daf2b9f6156673ef8b05e104a6ff0dd7.tar.gz fml8-f3637139daf2b9f6156673ef8b05e104a6ff0dd7.tar.bz2 fml8-f3637139daf2b9f6156673ef8b05e104a6ff0dd7.zip | |
_decode_mime_string() switched to use mime_header_decode_as_octets() of Mail::Message::Encode::Perl class.
| -rw-r--r-- | fml/lib/Mail/Message/DB.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/fml/lib/Mail/Message/DB.pm b/fml/lib/Mail/Message/DB.pm index 84d177e6..5ba46e81 100644 --- a/fml/lib/Mail/Message/DB.pm +++ b/fml/lib/Mail/Message/DB.pm @@ -917,10 +917,15 @@ sub _head_of_list_str sub _decode_mime_string { my ($self, $str, $out_code, $in_code) = @_; - - use Mail::Message::Encode; - my $encode = new Mail::Message::Encode; - return $encode->decode_mime_string($str, $out_code, $in_code); + + use Mail::Message::Encode::Perl; + my $encoder = new Mail::Message::Encode::Perl; + return $encoder->mime_header_decode_as_octets($str); + + # [OBSOLETE] + # use Mail::Message::Encode; + # my $encode = new Mail::Message::Encode; + # return $encode->decode_mime_string($str, $out_code, $in_code); } |