diff options
Diffstat (limited to 'fml/lib/Mail/Message')
| -rw-r--r-- | fml/lib/Mail/Message/Language/Japanese/Subject.pm | 6 | ||||
| -rw-r--r-- | fml/lib/Mail/Message/Subject.pm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/Mail/Message/Language/Japanese/Subject.pm b/fml/lib/Mail/Message/Language/Japanese/Subject.pm index 96904077..c291ea3c 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.16 2003/08/23 04:35:48 fukachan Exp $ +# $FML: Subject.pm,v 1.17 2004/07/23 13:16:46 fukachan Exp $ # @@ -95,7 +95,7 @@ sub is_reply } -=head2 cut_off_reply_tag($subject) +=head2 cutoff_reply_tag($subject) cut off C<Re:> in the string C<$subject> like C<Re: ... > within C<Subject:>. @@ -124,7 +124,7 @@ within C<Subject:>. # Arguments: OBJ($self) STR($subject) # Side Effects: none # Return Value: STR -sub cut_off_reply_tag +sub cutoff_reply_tag { my ($self, $subject) = @_; my ($y, $limit); diff --git a/fml/lib/Mail/Message/Subject.pm b/fml/lib/Mail/Message/Subject.pm index 74ce48b9..92ecceea 100644 --- a/fml/lib/Mail/Message/Subject.pm +++ b/fml/lib/Mail/Message/Subject.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2004 Ken'ichi Fukamachi # -# $FML: Subject.pm,v 1.5 2004/07/23 13:16:45 fukachan Exp $ +# $FML: Subject.pm,v 1.6 2004/07/23 15:59:16 fukachan Exp $ # package Mail::Message::Subject; @@ -70,7 +70,7 @@ sub delete_dup_reply_tag if (1) { use Mail::Message::Language::Japanese::Subject; my $sbj = new Mail::Message::Language::Japanese::Subject; - $subject = $sbj->cut_off_reply_tag($subject); + $subject = $sbj->cutoff_reply_tag($subject); $self->set($subject); } } |