diff options
| author | fukachan <fukachan> | 2004-03-04 10:18:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-04 10:18:40 +0000 |
| commit | b35c874a16a33b415050a893ec3491d2e64d2ed9 (patch) | |
| tree | a8c2cb0cee8c3178c9b2643e08ebbc3fa2f95b33 /fml/lib | |
| parent | 1336d81877111db3f8c88e374878c2d0b6a3ee13 (diff) | |
| download | fml8-b35c874a16a33b415050a893ec3491d2e64d2ed9.tar.gz fml8-b35c874a16a33b415050a893ec3491d2e64d2ed9.tar.bz2 fml8-b35c874a16a33b415050a893ec3491d2e64d2ed9.zip | |
charcode_convert() -> charcode_convert_to_external_charset().
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Article/Summary.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/FML/Article/Summary.pm b/fml/lib/FML/Article/Summary.pm index 401ab321..5de27cae 100644 --- a/fml/lib/FML/Article/Summary.pm +++ b/fml/lib/FML/Article/Summary.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: Summary.pm,v 1.18 2004/02/06 13:21:27 fukachan Exp $ +# $FML: Summary.pm,v 1.19 2004/02/13 14:11:12 fukachan Exp $ # package FML::Article::Summary; @@ -115,13 +115,14 @@ sub _prepare_info # de-tag, unfold, and charset conversion. if ($subject) { + # XXX as side effect, converted to internal code e.g. euc-jp. use Mail::Message::Subject; my $sbj = new Mail::Message::Subject $subject; $sbj->mime_decode(); $sbj->unfold(); $sbj->delete_tag($tag); $sbj->unfold(); - $sbj->charcode_convert(); + $sbj->charcode_convert_to_external_charset(); # e.g. iso-2022-jp $subject = $sbj->as_str(); } |