From 06966b2f94b6bc579d418bfebdba2b2375eeba4f Mon Sep 17 00:00:00 2001
From: tmu <tmu>
Date: Thu, 23 May 2002 11:03:29 +0000
Subject: add mime decode for subject

---
 fml/lib/FML/Header/Subject.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'fml/lib/FML/Header')

diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm
index e7e5532c..f4c5eaba 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.23 2001/12/22 09:21:07 fukachan Exp $
+# $FML: Subject.pm,v 1.24 2002/04/24 14:28:15 tmu Exp $
 #
 
 package FML::Header::Subject;
@@ -70,6 +70,10 @@ sub rewrite_subject_tag
     my $tag     = $config->{ subject_tag };
     my $subject = $header->get('subject');
 
+    # decode mime
+    use Mail::Message::Decode qw(decode_mime_string);
+    $subject = decode_mime_string( $subject );
+
     # cut off Re: Re: Re: ...
     $self->_cut_off_reply(\$subject);
 
-- 
cgit v1.2.1