diff options
| author | fukachan <fukachan> | 2005-08-18 10:30:09 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-18 10:30:09 +0000 |
| commit | 104a558005c945f10bf13fbbabd8c19c71847c9f (patch) | |
| tree | 6440ca2c3ab5398dace109f1804f2302a2f9676a | |
| parent | 48f5ca0acbec60e3d32c57c08ce0102320bd7055 (diff) | |
| download | fml8-104a558005c945f10bf13fbbabd8c19c71847c9f.tar.gz fml8-104a558005c945f10bf13fbbabd8c19c71847c9f.tar.bz2 fml8-104a558005c945f10bf13fbbabd8c19c71847c9f.zip | |
exclude explicit code e.g. euc-jp and use Mail::Message::Charset instead.
| -rw-r--r-- | fml/lib/FML/Header/Subject.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm index c01b9c52..1d3aae1a 100644 --- a/fml/lib/FML/Header/Subject.pm +++ b/fml/lib/FML/Header/Subject.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Subject.pm,v 1.47 2004/07/23 15:59:06 fukachan Exp $ +# $FML: Subject.pm,v 1.48 2005/05/26 10:20:05 fukachan Exp $ # package FML::Header::Subject; @@ -127,10 +127,10 @@ sub decode } } - # XXX-TODO: care for not Japanese ! - if ($subject =~ /=\?iso-2022-jp\?/i) { - $in_code = 'jis-jp'; - $out_code = 'euc-jp'; + if ($subject =~ /=\?([-\w\d]+)\?/i) { + my $lang = $mc->message_charset_to_language($1); + $in_code = $mc->language_to_message_charset($lang) || ''; + $out_code = $mc->language_to_internal_charset($lang) || ''; } else { $in_code = $out_code = ''; |