diff options
| author | fukachan <fukachan> | 2003-06-02 23:59:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-06-02 23:59:57 +0000 |
| commit | 552d039fc2ed5e345c22af644c713336e4b5ea34 (patch) | |
| tree | 0aa7b890cb93f60b9c9f8585922cb6f55248e455 /fml/lib/Mail/Message/ToHTML.pm | |
| parent | 39fa7b83fc044e239cf3c6c7e71c8fd2acac1ee6 (diff) | |
| download | fml8-552d039fc2ed5e345c22af644c713336e4b5ea34.tar.gz fml8-552d039fc2ed5e345c22af644c713336e4b5ea34.tar.bz2 fml8-552d039fc2ed5e345c22af644c713336e4b5ea34.zip | |
remove _address_clean_up(), which is not used.
Diffstat (limited to 'fml/lib/Mail/Message/ToHTML.pm')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 29 |
1 files changed, 2 insertions, 27 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index e3c31634..305def1e 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.41.2.1 2003/06/01 12:28:56 fukachan Exp $ +# $FML: ToHTML.pm,v 1.41.2.2 2003/06/02 04:57:18 fukachan Exp $ # package Mail::Message::ToHTML; @@ -17,7 +17,7 @@ my $debug = 1; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>"; -my $version = q$FML: ToHTML.pm,v 1.41.2.1 2003/06/01 12:28:56 fukachan Exp $; +my $version = q$FML: ToHTML.pm,v 1.41.2.2 2003/06/02 04:57:18 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -2087,31 +2087,6 @@ sub _print_li_filename =cut -# Descriptions: clean up email address by Mail::Address. -# return clean-up'ed address list. -# Arguments: STR($addr) -# Side Effects: none -# Return Value: ARRAY_REF -sub _address_clean_up -{ - my ($addr) = @_; - my (@r); - - use Mail::Address; - my (@addrs) = Mail::Address->parse($addr); - - my $i = 0; - LIST: - for my $addr (@addrs) { - my $xaddr = $addr->address(); - next LIST unless $xaddr =~ /\@/; - push(@r, $xaddr); - } - - return \@r; -} - - # Descriptions: extrace gecos field in $address # Arguments: OBJ($self) STR($address) # Side Effects: none |