diff options
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Header/Subject.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm index 9efe4603..050e98e7 100644 --- a/fml/lib/FML/Header/Subject.pm +++ b/fml/lib/FML/Header/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.30 2002/09/22 14:56:50 fukachan Exp $ +# $FML: Subject.pm,v 1.31 2002/10/03 22:12:01 fukachan Exp $ # package FML::Header::Subject; @@ -71,6 +71,12 @@ sub rewrite_article_subject_tag my $tag = $config->{ article_subject_tag }; my $subject = $header->get('subject'); + # if $tag has special regexp such as \U$ml_name\E or \L$ml_name\E + if ($tag =~ /\\E/o && $tag =~ /\\U|\\L/o) { + eval qq{ \$tag = "$tag";}; + Log($@) if $@; + } + if ($subject =~ /=\?iso-2022-jp\?/i) { $in_code = 'jis-jp'; $out_code = 'euc-jp'; |