diff options
| author | fukachan <fukachan> | 2002-10-28 09:51:21 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-10-28 09:51:21 +0000 |
| commit | 4310152345d64fbb4f32c74c77ea968c242d47e2 (patch) | |
| tree | e317d39b9cf1f0e6247fcf5a9c9c280fd478d900 /fml/lib/FML/Header | |
| parent | 3a03328540bcd5671eb9829ff86dc22bcf6391a7 (diff) | |
| download | fml8-4310152345d64fbb4f32c74c77ea968c242d47e2.tar.gz fml8-4310152345d64fbb4f32c74c77ea968c242d47e2.tar.bz2 fml8-4310152345d64fbb4f32c74c77ea968c242d47e2.zip | |
you can use \U$ml_name\$ in subject tag configuration:)
Diffstat (limited to 'fml/lib/FML/Header')
| -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'; |