subject handling is changed to use Mail::Message::Subject based e.g. mime_header_decode().

Mail::Message::Subject

1 files changed, 6 insertions, 11 deletions

diff --git a/fml/lib/FML/Article/Thread.pm b/fml/lib/FML/Article/Thread.pm
index ee614b2c..52bfe13d 100644
--- a/fml/lib/FML/Article/Thread.pm
+++ b/fml/lib/FML/Article/Thread.pm
@@ -159,20 +159,15 @@ sub check_if_article_is_reply_message
     my $thread  = $self->{ _thread_object };
     my $article = $self->{ _article_object };
     my $header  = $msg->whole_message_header();
-
+    
     # 1) get subject. mime-decode it if needed.
     my $subject = $header->get('subject');
-    if ($subject =~ /=\?/o) {
-	my $string = new Mail::Message::String $subject;
-	$string->mime_decode();
-	$string->charcode_convert_to_internal_code();
-	$subject = $string->as_str();
-    }
-
+    use Mail::Message::Subject;
+    my $subj = new Mail::Message::Subject $subject;
+    $subj->mime_header_decode();
+    
     # 2) it looks the subject has a reply tag ?
-    use FML::Header::Subject;
-    my $subj = new FML::Header::Subject;
-    if ($subj->is_reply($subject)) {
+    if ($subj->has_reply_tag()) {
 	$thread->set_article_status($id, $state_followed);
     }
     else {