summaryrefslogtreecommitdiff
path: root/fml
diff options
context:
space:
mode:
authorfukachan <fukachan>2003-10-15 10:06:46 +0000
committerfukachan <fukachan>2003-10-15 10:06:46 +0000
commit80d3c57b0daed9309c9670171e44b04d421f3ef8 (patch)
tree7977cf2ba5c2e479a8826906ea3624a85286623b /fml
parentf8a4efefb134c91e0d5a8e531a91ce8446409684 (diff)
downloadfml8-80d3c57b0daed9309c9670171e44b04d421f3ef8.tar.gz
fml8-80d3c57b0daed9309c9670171e44b04d421f3ef8.tar.bz2
fml8-80d3c57b0daed9309c9670171e44b04d421f3ef8.zip
comment on charset
Diffstat (limited to 'fml')
-rw-r--r--fml/lib/FML/Process/Kernel.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index ae38e1c0..d92e54b8 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.186 2003/10/15 01:03:34 fukachan Exp $
+# $FML: Kernel.pm,v 1.187 2003/10/15 09:09:11 fukachan Exp $
#
package FML::Process::Kernel;
@@ -1642,6 +1642,7 @@ sub reply_message_nl
$config->expand_variable_in_buffer(\$buf, $args);
}
+ # XXX-TODO: jis-jp is hard-coded.
eval q{
use Mail::Message::Encode;
my $obj = new Mail::Message::Encode;
@@ -1910,6 +1911,9 @@ sub queue_in
}
# 1. eat up text messages and put it 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.
if ($s) {
$msg->attach(Type => "text/plain; charset=$charset",
Data => $s,