cut_off -> cutoff

4 files changed, 15 insertions, 15 deletions

diff --git a/fml/lib/FML/Filter/MimeComponent.pm b/fml/lib/FML/Filter/MimeComponent.pm
index cae20426..4361b18c 100644
--- a/fml/lib/FML/Filter/MimeComponent.pm
+++ b/fml/lib/FML/Filter/MimeComponent.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: MimeComponent.pm,v 1.14 2005/08/09 03:22:23 fukachan Exp $
+# $FML: MimeComponent.pm,v 1.15 2005/08/10 12:55:33 fukachan Exp $
 #
 
 package FML::Filter::MimeComponent;
@@ -61,8 +61,8 @@ my $filter_rules = [
 # XXX-TODO: $default_action customizable ?
 my $default_action = 'permit';
 
-# XXX-TODO: $opt_cut_off_empty_part customizable ?
-my $opt_cut_off_empty_part = 1;
+# XXX-TODO: $opt_cutoff_empty_part customizable ?
+my $opt_cutoff_empty_part = 1;
 
 # XXX-TODO: $recursive_max_level customizable ?
 my $recursive_max_level    = 10;
@@ -177,7 +177,7 @@ sub mime_component_check
 	}
 
 	# cut off this part if empty.
-	if ($opt_cut_off_empty_part) {
+	if ($opt_cutoff_empty_part) {
 	    if ($mp->is_empty()) {
 		__dprint("\n\t! action = cutoff due to empty.");
 		$is_cutoff = 1;
@@ -187,7 +187,7 @@ sub mime_component_check
     }
 
     # reject if all effective parts are cutoff.
-    if ($opt_cut_off_empty_part) {
+    if ($opt_cutoff_empty_part) {
 	if ($msg->is_multipart()) {
 	    # reject if no effective part.
 	    unless ($self->_has_effective_part($msg)) {
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm
index 05af5924..ffd8fc5b 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.50 2005/08/19 11:21:14 fukachan Exp $
+# $FML: Subject.pm,v 1.51 2005/08/19 12:17:08 fukachan Exp $
 #
 
 package FML::Header::Subject;
@@ -76,7 +76,7 @@ sub rewrite_article_subject_tag
 
     # cut off Re: Re: Re: ...
     # $subject IS DECODED ALREADY.
-    $self->_cut_off_reply(\$subject);
+    $self->_cutoff_reply(\$subject);
 
     # de-tag
     # $subject IS DECODED ALREADY.
@@ -84,7 +84,7 @@ sub rewrite_article_subject_tag
 
     # cut off Re: Re: Re: ...
     # $subject IS DECODED ALREADY.
-    $self->_cut_off_reply(\$subject);
+    $self->_cutoff_reply(\$subject);
 
     use Mail::Message::Encode;
     my $obj = new Mail::Message::Encode;
@@ -258,7 +258,7 @@ sub is_reply
 #               $r_subject is SCALAR REREFENCE to the subject string
 # Side Effects: $r_subject is rewritten
 # Return Value: none
-sub _cut_off_reply
+sub _cutoff_reply
 {
     my ($self, $r_subject) = @_;
 
@@ -269,7 +269,7 @@ sub _cut_off_reply
     # XXX-TODO: care for not Japanese string!
     use Mail::Message::Language::Japanese::Subject;
     my $obj = new Mail::Message::Language::Japanese::Subject;
-    $$r_subject = $obj->cut_off_reply_tag($$r_subject);
+    $$r_subject = $obj->cutoff_reply_tag($$r_subject);
 }
 
 
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);
     }
 }