diff options
| author | tmu <tmu> | 2003-11-07 15:15:26 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2003-11-07 15:15:26 +0000 |
| commit | 7c8aad567c12e7cb04c94fc95a261f635a3ad36b (patch) | |
| tree | d24866ff62a54d0c2cd06bb52cba92811f41207b /fml/lib/Mail/Message/ToHTML.pm | |
| parent | 2026af7484a2c975cbc6fd4ed9e5d69355035223 (diff) | |
| download | fml8-7c8aad567c12e7cb04c94fc95a261f635a3ad36b.tar.gz fml8-7c8aad567c12e7cb04c94fc95a261f635a3ad36b.tar.bz2 fml8-7c8aad567c12e7cb04c94fc95a261f635a3ad36b.zip | |
add $versionid
add new comment tag at html_begin() for file magic
change @header_field remove same information (X-xxx) and add Message-Id
Diffstat (limited to 'fml/lib/Mail/Message/ToHTML.pm')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index 621fe4bd..20b0e0f4 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.56 2003/10/06 10:42:19 fukachan Exp $ +# $FML: ToHTML.pm,v 1.57 2003/10/15 01:03:40 fukachan Exp $ # package Mail::Message::ToHTML; @@ -17,9 +17,11 @@ my $debug = 0; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>"; -my $version = q$FML: ToHTML.pm,v 1.56 2003/10/06 10:42:19 fukachan Exp $; +my $version = q$FML: ToHTML.pm,v 1.57 2003/10/15 01:03:40 fukachan Exp $; +my $versionid = 0; if ($version =~ /,v\s+([\d\.]+)\s+/) { - $version = "$URL $1"; + $versionid = "$1"; + $version = "$URL $versionid"; } =head1 NAME @@ -494,6 +496,7 @@ sub html_begin $hdr->get('subject') ); } + print $wh "<!-- X-FML 8 ToHTML $versionid -->\n"; print $wh q{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">}; print $wh "\n"; @@ -718,8 +721,7 @@ sub _gen_attachment_filename # default header to show -my @header_field = qw(From To Cc Subject Date - X-ML-Name X-Mail-Count X-Sequence); +my @header_field = qw(From To Cc Subject Date Message-Id X-Sequence); # Descriptions: format header of $msg with escaping HTML metachars |