diff options
| author | fukachan <fukachan> | 2005-09-02 09:12:17 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-09-02 09:12:17 +0000 |
| commit | 0d6ca9698fc4584699ccfc6237240d361193a277 (patch) | |
| tree | 300f5669c0c3fd323f0f45ad2b188175f058b87d | |
| parent | 015656b9a5f24d8bf134f8578633e999be4a8e98 (diff) | |
| download | fml8-0d6ca9698fc4584699ccfc6237240d361193a277.tar.gz fml8-0d6ca9698fc4584699ccfc6237240d361193a277.tar.bz2 fml8-0d6ca9698fc4584699ccfc6237240d361193a277.zip | |
append/prepend() checks charset info case-insensitively.
| -rw-r--r-- | fml/lib/Mail/Message.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 2c9fea2c..870ab874 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.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: Message.pm,v 1.100 2005/08/31 12:12:35 fukachan Exp $ +# $FML: Message.pm,v 1.101 2005/09/01 04:04:19 fukachan Exp $ # package Mail::Message; @@ -721,6 +721,8 @@ sub __build_simple_message my $type = $data->{ type } || 'unknown'; my $buf = $data->{ data } || ''; + $my_charset =~ tr/A-Z/a-z/; + $charset =~ tr/A-Z/a-z/; if ($type eq 'text/plain' && $my_charset eq $charset) { return new Mail::Message { data_type => $type, |