diff options
| author | fukachan <fukachan> | 2004-06-23 00:05:38 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-06-23 00:05:38 +0000 |
| commit | 381b2bce3e08e79a05c72419fdc6340d47fe3ce6 (patch) | |
| tree | 4ae095b47af8088084cb846138805aaabe73aa6e /fml/lib/Mail | |
| parent | bc30fe53f75dec016018bb78e7c84912eb905c4f (diff) | |
| download | fml8-381b2bce3e08e79a05c72419fdc6340d47fe3ce6.tar.gz fml8-381b2bce3e08e79a05c72419fdc6340d47fe3ce6.tar.bz2 fml8-381b2bce3e08e79a05c72419fdc6340d47fe3ce6.zip | |
bug fix: delete_dup_reply_tag() runs always. (fml-devel: 711)
Diffstat (limited to 'fml/lib/Mail')
| -rw-r--r-- | fml/lib/Mail/Message/Subject.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message/Subject.pm b/fml/lib/Mail/Message/Subject.pm index 4e5207df..2b2800b3 100644 --- a/fml/lib/Mail/Message/Subject.pm +++ b/fml/lib/Mail/Message/Subject.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2004 Ken'ichi Fukamachi # -# $FML: Subject.pm,v 1.2 2004/02/06 13:16:27 fukachan Exp $ +# $FML: Subject.pm,v 1.3 2004/03/28 11:11:55 fukachan Exp $ # package Mail::Message::Subject; @@ -63,10 +63,11 @@ sub delete_dup_reply_tag { my ($self) = @_; my $subject = $self->as_str(); - my $charset = $self->get_mime_charset(); # XXX-TODO: care for not Japanese string! - if ($charset =~ /iso-2022-jp/io) { + # XXX-TODO: call this module if $subject is Japanese or English. + # XXX-TODO: but what should we do when the code is not the two ? + if (1) { use Mail::Message::Language::Japanese::Subject; my $sbj = new Mail::Message::Language::Japanese::Subject; $subject = $sbj->cut_off_reply_tag($subject); |