diff options
| -rw-r--r-- | fml/lib/FML/Header.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Header/Subject.pm | 7 |
2 files changed, 5 insertions, 8 deletions
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index 9c154274..a5f24b84 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_hdr_decode(); + $sbj->mime_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_hdr_encode(); + $sbj->mime_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_obsolete($header, $config, $rw_args); + $pkg->rewrite_article_subject_tag($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 42936d9f..535b5f98 100644 --- a/fml/lib/FML/Header/Subject.pm +++ b/fml/lib/FML/Header/Subject.pm @@ -48,9 +48,7 @@ sub new } -=head2 rewrite_article_subject_tag_obsolete($header, $config, $args) - -[OBSOLETE] not used now. it should be removed in the future. +=head2 rewrite_article_subject_tag($header, $config, $args) add or rewrite the subject tag for C<$header>. This mothod cuts off Re: (reply identifier) in subject: and @@ -60,11 +58,10 @@ 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_obsolete +sub rewrite_article_subject_tag { my ($self, $header, $config, $rw_args) = @_; my ($in_code, $out_code); |