diff options
| author | fukachan <fukachan> | 2001-12-24 12:52:46 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-24 12:52:46 +0000 |
| commit | e14295b990667c7873ab8da20d011ce3c2c6a2fc (patch) | |
| tree | 4e0e3f3fb4bd1d3d458ff8d363bc4ff16a7f740f /fml/lib/Mail/Message/Language | |
| parent | 3144ee48d46f6d70df63084e6909df6010791840 (diff) | |
| download | fml8-e14295b990667c7873ab8da20d011ce3c2c6a2fc.tar.gz fml8-e14295b990667c7873ab8da20d011ce3c2c6a2fc.tar.bz2 fml8-e14295b990667c7873ab8da20d011ce3c2c6a2fc.zip | |
update documents, comments
Diffstat (limited to 'fml/lib/Mail/Message/Language')
| -rw-r--r-- | fml/lib/Mail/Message/Language/Japanese/Subject.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message/Language/Japanese/Subject.pm b/fml/lib/Mail/Message/Language/Japanese/Subject.pm index 83279b85..4a4a3a8a 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.3 2001/12/16 14:06:41 fukachan Exp $ +# $FML: Subject.pm,v 1.4 2001/12/22 09:21:20 fukachan Exp $ # @@ -64,6 +64,10 @@ For example, it is like this: =cut +# Descriptions: looks reply message ? +# Arguments: OBJ($self) STR($x) +# Side Effects: none +# Return Value: 1 or 0 sub is_reply { my ($self, $x) = @_; @@ -96,6 +100,12 @@ within C<Subject:>. # run-hooks $CUT_OFF_HOOK(ユーザ定義HOOK) #} # レレレ対策 + + +# Descriptions: remove Re: +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: none +# Return Value: STR sub cut_off_reply_tag { my ($subject) = @_; |