diff options
| author | fukachan <fukachan> | 2004-04-27 13:36:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-27 13:36:40 +0000 |
| commit | fcc728319c9ce391254eb4f86abbc75cc217ed19 (patch) | |
| tree | 818dd0fbda1fa94a5a03d9896009c210ffa2074b /fml/lib/FML/Process | |
| parent | 0fa8df4c40b5bd040b1d09fe6e7675011bdae4b5 (diff) | |
| download | fml8-fcc728319c9ce391254eb4f86abbc75cc217ed19.tar.gz fml8-fcc728319c9ce391254eb4f86abbc75cc217ed19.tar.bz2 fml8-fcc728319c9ce391254eb4f86abbc75cc217ed19.zip | |
fix comments.
use $str->charcode_convert_to_external_charset(), remove hard-coded 'jis'.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index b3dfe8f9..4d1bd2af 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.225 2004/04/17 06:18:04 fukachan Exp $ +# $FML: Kernel.pm,v 1.226 2004/04/17 13:25:14 fukachan Exp $ # package FML::Process::Kernel; @@ -1799,11 +1799,10 @@ sub _reply_message_nl $config->expand_variable_in_buffer(\$buf, $rm_args); } - # XXX-TODO: jis-jp is hard-coded. eval q{ use Mail::Message::String; my $str = new Mail::Message::String $buf; - $str->charcode_convert('jis'); + $str->charcode_convert_to_external_charset(); $buf = $str->as_str(); $curproc->_reply_message_queuein($buf, $rm_args, $charsets); @@ -2221,7 +2220,7 @@ sub queue_in } } - # 1. eat up text messages and put it into the first part. + # 1. eat up text messages and put them into the first part. # XXX-TODO: wrong handling of $charset ??? # XXX-TODO: reply message should be determined by context and # XXX-TODO: accept-language: information. |