diff options
| author | fukachan <fukachan> | 2001-01-24 04:18:13 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-24 04:18:13 +0000 |
| commit | 6bf7b6b70963bff0fe74dc26054c405cb5b2f70f (patch) | |
| tree | 27ac36e2a53b17ad9b6e1db90e718ee9c3ce9341 /fml/lib/FML/Header | |
| parent | d01e2177806b3590f40435428075d4e8824fbac9 (diff) | |
| download | fml8-6bf7b6b70963bff0fe74dc26054c405cb5b2f70f.tar.gz fml8-6bf7b6b70963bff0fe74dc26054c405cb5b2f70f.tar.bz2 fml8-6bf7b6b70963bff0fe74dc26054c405cb5b2f70f.zip | |
change function name to check reply to is_reply() and a few
Diffstat (limited to 'fml/lib/FML/Header')
| -rw-r--r-- | fml/lib/FML/Header/Subject.pm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm index bfc7f3aa..47e4cb53 100644 --- a/fml/lib/FML/Header/Subject.pm +++ b/fml/lib/FML/Header/Subject.pm @@ -77,10 +77,19 @@ sub _regexp_compile } -sub is_reply_message +sub is_reply { my ($self, $subject) = @_; - $subject =~ /Re:/i ? 1 : 0; + + return 1 if $subject =~ /^\s*Re:/i; + + my $pkg = 'Dialect::Japanese::Subject'; + eval qq{ require $pkg; $pkg->import();}; + unless ($@) { + return 1 if &Dialect::Japanese::Subject::is_reply($subject); + }; + + return 0; } |