subject handling is changed to mime_header_decode() and as_external_form() style.

XXX bug this module is broken now.
XXX it seems text2html() handles the input as ISO-8859-1 always ?

1 files changed, 9 insertions, 7 deletions

diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index 75dd96e7..0a682f85 100644
--- a/fml/lib/Mail/Message/ToHTML.pm
+++ b/fml/lib/Mail/Message/ToHTML.pm
@@ -2207,7 +2207,7 @@ sub _print_li_filename
     $main::opt_mimedecodequoted = $mimeopt;
 
     _PRINT_DEBUG("-- print_li_filename id=$id file=$filename");
-
+    
     if (defined $filename && $filename) {
 	_print_raw_str($wh, "<!-- LI id=$id -->\n", $code);
 
@@ -2268,12 +2268,14 @@ sub _decode_mime_string
     my $code    = _charset_to_code($charset) || 'euc';
 
     if (defined($str) && $str) {
-	use Mail::Message::Encode;
-	my $encode = new Mail::Message::Encode;
-	return $encode->decode_mime_string($str, $code);
+	use Mail::Message::Subject;
+	my $sbj = new Mail::Message::Subject $str;
+	$sbj->mime_header_decode();
+	return $sbj->as_external_form();
+    }
+    else {
+	return '';
     }
-
-    return $str;
 }
 
 
@@ -2298,7 +2300,7 @@ sub _convert
 sub __nc_convert
 {
     my ($str, $out_code, $in_code) = @_;
-
+    
     use Mail::Message::Encode;
     my $encode = new Mail::Message::Encode;
     return $encode->convert($str, $out_code, $in_code);