diff options
| author | tmu <tmu> | 2003-08-14 13:43:08 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2003-08-14 13:43:08 +0000 |
| commit | 3998d9decdb473760d07ab8125811a12b70d8660 (patch) | |
| tree | 9b6d32a03e3b4376ac10e50fe4d90a496a2a784c /fml/lib/Mail/Message/ToHTML.pm | |
| parent | 4d50af883af1d5774fdb8ba432fe42e26d90268e (diff) | |
| download | fml8-3998d9decdb473760d07ab8125811a12b70d8660.tar.gz fml8-3998d9decdb473760d07ab8125811a12b70d8660.tar.bz2 fml8-3998d9decdb473760d07ab8125811a12b70d8660.zip | |
test html_archive_address_mask mask or nomask
address_mask use To and Cc
Diffstat (limited to 'fml/lib/Mail/Message/ToHTML.pm')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index 8f48a347..c8793135 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.49 2003/08/01 14:42:27 tmu Exp $ +# $FML: ToHTML.pm,v 1.50 2003/08/08 03:52:55 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.49 2003/08/01 14:42:27 tmu Exp $; +my $version = q$FML: ToHTML.pm,v 1.50 2003/08/08 03:52:55 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -106,6 +106,7 @@ sub new $me->{ _use_subdir } = 'yes'; $me->{ _subdir_style } = 'yyyymm'; $me->{ _html_id_order } = $args->{ index_order } || 'normal'; + $me->{ _address_mask } = $args->{ address_mask } || 'mask'; use Mail::Message::Thread; my $t = new Mail::Message::Thread $args; @@ -741,7 +742,7 @@ sub _format_safe_header my $xbuf = $hdr->get($field); # mask the raw address. - if ($field eq 'From') { + if ($field =~ /^(From|To|Cc)$/ && $self->{ _address_mask } ne 'nomask') { $xbuf = $self->_who_of_address($xbuf); } |