clarify FML::Header::Subjectrewrite_article_subject_tag_orig is obsolete

by renaming to rewrite_article_subject_tag_obsolete().
It should be removed in the future.
It will stay with the repository for a while.

2 files changed, 6 insertions, 3 deletions

diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm
index a5f24b84..28fd14a9 100644
--- a/fml/lib/FML/Header.pm
+++ b/fml/lib/FML/Header.pm
@@ -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);