FML::Header::Subject->rewrite_article_subject_tag is obsolete.

Temporarily, renamed to rewrite_article_subject_tag_obsolete()
but it should be removed in the future.

2 files changed, 8 insertions, 5 deletions

diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm
index a5f24b84..9c154274 100644
--- a/fml/lib/FML/Header.pm
+++ b/fml/lib/FML/Header.pm
@@ -467,7 +467,7 @@ sub rewrite_article_subject_tag
     my $sbj = new Mail::Message::Subject $str;
 
     # mime decode
-    $sbj->mime_decode();
+    $sbj->mime_hdr_decode();
 
     # de-tag and cut off Re: Re: Re: ... (duplicated reply tag).
     $sbj->delete_dup_reply_tag() if $sbj->has_reply_tag();
@@ -482,7 +482,7 @@ sub rewrite_article_subject_tag
     $sbj->set($new_sbj);
 
     # mime encode and replace subject field.
-    $sbj->mime_encode();
+    $sbj->mime_hdr_encode();
     $header->replace('Subject', $sbj->as_str());
 }
 
@@ -499,7 +499,7 @@ sub rewrite_article_subject_tag_obsolete
     my $pkg = "FML::Header::Subject";
     eval qq{ use $pkg;};
     unless ($@) {
-	$pkg->rewrite_article_subject_tag($header, $config, $rw_args);
+	$pkg->rewrite_article_subject_tag_obsolete($header, $config, $rw_args);
     }
     else {
 	croak("cannot load $pkg");
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm
index 535b5f98..42936d9f 100644
--- a/fml/lib/FML/Header/Subject.pm
+++ b/fml/lib/FML/Header/Subject.pm
@@ -48,7 +48,9 @@ sub new
 }
 
 
-=head2 rewrite_article_subject_tag($header, $config, $args)
+=head2 rewrite_article_subject_tag_obsolete($header, $config, $args)
+
+[OBSOLETE] not used now. it should be removed in the future.
 
 add or rewrite the subject tag for C<$header>.
 This mothod cuts off Re: (reply identifier) in subject: and
@@ -58,10 +60,11 @@ replace the subject with the newer content e.g. including the ML tag.
 
 
 # Descriptions: add or rewrite the subject tag.
+#               [OBSOLETE] not used now. it should be removed in the future.
 #    Arguments: OBJ($self) OBJ($header) OBJ($config) HASH_REF($rw_args)
 # Side Effects: the header subject is rewritten.
 # Return Value: none
-sub rewrite_article_subject_tag
+sub rewrite_article_subject_tag_obsolete
 {
     my ($self, $header, $config, $rw_args) = @_;
     my ($in_code, $out_code);