diff options
| author | fukachan <fukachan> | 2002-12-22 03:09:56 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-22 03:09:56 +0000 |
| commit | ca12ba7373d99c92f2ca6dc1585b3028bbd05c29 (patch) | |
| tree | 3e151ed09943062107c75f320d4714449dc2eaea /fml/lib/Mail/Message/Language | |
| parent | 9b0d28906c98372ca271f501ea435f2d418f2a5f (diff) | |
| download | fml8-ca12ba7373d99c92f2ca6dc1585b3028bbd05c29.tar.gz fml8-ca12ba7373d99c92f2ca6dc1585b3028bbd05c29.tar.bz2 fml8-ca12ba7373d99c92f2ca6dc1585b3028bbd05c29.zip | |
FNF-ify. fix comments.
cosmetics.
Diffstat (limited to 'fml/lib/Mail/Message/Language')
| -rw-r--r-- | fml/lib/Mail/Message/Language/Japanese/Subject.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message/Language/Japanese/Subject.pm b/fml/lib/Mail/Message/Language/Japanese/Subject.pm index a684a412..644b94e0 100644 --- a/fml/lib/Mail/Message/Language/Japanese/Subject.pm +++ b/fml/lib/Mail/Message/Language/Japanese/Subject.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: Subject.pm,v 1.9 2002/09/11 23:18:28 fukachan Exp $ +# $FML: Subject.pm,v 1.10 2002/09/22 14:57:05 fukachan Exp $ # @@ -36,8 +36,8 @@ in the subject. =cut -# XXX we should it in proper way in the future. -# XXX but we import it anyway for further rewriting. +# XXX-TODO: we should it in proper way in the future. +# XXX-TODO: but we import it anyway for further rewriting. my $CUT_OFF_RERERE_PATTERN = ''; my $CUT_OFF_RERERE_HOOK = ''; @@ -71,7 +71,9 @@ For example, it is like this: sub is_reply { my ($self, $x) = @_; + return 0 unless $x; + &Jcode::convert(\$x, 'euc'); return ($x =~ /^((\s|(กก))*($pattern)\s*)+/ ? 1 : 0); } @@ -111,6 +113,8 @@ sub cut_off_reply_tag my ($subject) = @_; my ($y, $limit); + # XXX-TODO: method-ify ? + Jcode::convert(\$subject, 'euc'); if ($CUT_OFF_RERERE_PATTERN) { |