diff options
| author | tmu <tmu> | 2004-06-11 10:35:22 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2004-06-11 10:35:22 +0000 |
| commit | 0ee20d6f95c136d6ec9bc0dc1e88dd3fbb4ed06b (patch) | |
| tree | d5af951f01a78cabfba55e0df06f7faaab2efb4d /fml/lib/Mail/Message/ToHTML.pm | |
| parent | 09ddb9334268ad6109a59bff387e7d565e787722 (diff) | |
| download | fml8-0ee20d6f95c136d6ec9bc0dc1e88dd3fbb4ed06b.tar.gz fml8-0ee20d6f95c136d6ec9bc0dc1e88dd3fbb4ed06b.tar.bz2 fml8-0ee20d6f95c136d6ec9bc0dc1e88dd3fbb4ed06b.zip | |
set $main::opt_mimedecodequoted at _print_li_filename(),_format_safe_header()
Diffstat (limited to 'fml/lib/Mail/Message/ToHTML.pm')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index 5684416c..942028a7 100644 --- a/fml/lib/Mail/Message/ToHTML.pm +++ b/fml/lib/Mail/Message/ToHTML.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: ToHTML.pm,v 1.64 2004/02/24 14:36:53 fukachan Exp $ +# $FML: ToHTML.pm,v 1.65 2004/03/24 01:32:04 fukachan Exp $ # package Mail::Message::ToHTML; @@ -17,7 +17,7 @@ my $debug = 0; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>"; -my $version = q$FML: ToHTML.pm,v 1.64 2004/02/24 14:36:53 fukachan Exp $; +my $version = q$FML: ToHTML.pm,v 1.65 2004/03/24 01:32:04 fukachan Exp $; my $versionid = 0; if ($version =~ /,v\s+([\d\.]+)\s+/) { $versionid = "$1"; @@ -743,6 +743,9 @@ sub _format_safe_header my $hdr = $msg->whole_message_header; my $header_field = \@header_field; + my $mimeopt = $main::opt_mimedecodequoted; + $main::opt_mimedecodequoted = 1; + # header $buf .= "<SPAN CLASS=mailheaders>\n"; for my $field (@$header_field) { @@ -769,6 +772,7 @@ sub _format_safe_header } $buf .= "</SPAN>\n"; + $main::opt_mimedecodequoted = $mimeopt; return($buf); } @@ -2026,6 +2030,12 @@ sub _print_li_filename $who .= " " . $db->get('from', $id); } + my $mimeopt = $main::opt_mimedecodequoted; + $main::opt_mimedecodequoted = 1; + $subject = $self->_decode_mime_string($subject) if $subject =~ /=\?/i; + $who = $self->_decode_mime_string($who) if $who =~ /=\?/i; + $main::opt_mimedecodequoted = $mimeopt; + _PRINT_DEBUG("-- print_li_filename id=$id file=$filename"); if (defined $filename && $filename) { |