diff options
| author | fukachan <fukachan> | 2005-08-19 12:17:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-19 12:17:06 +0000 |
| commit | f5ea36df952d25e0bd11f17fef1433f728fe9df2 (patch) | |
| tree | f57b12dad8872533af8179a033cc33a390499648 /fml/lib/Mail/Message | |
| parent | 76b208ac574e30ceb3cf304efcaf1c48b83e9a0d (diff) | |
| download | fml8-f5ea36df952d25e0bd11f17fef1433f728fe9df2.tar.gz fml8-f5ea36df952d25e0bd11f17fef1433f728fe9df2.tar.bz2 fml8-f5ea36df952d25e0bd11f17fef1433f728fe9df2.zip | |
FNF: XXX_clean_up() -> XXX_cleanup()
Diffstat (limited to 'fml/lib/Mail/Message')
| -rw-r--r-- | fml/lib/Mail/Message/Address.pm | 6 | ||||
| -rw-r--r-- | fml/lib/Mail/Message/DB.pm | 12 |
2 files changed, 9 insertions, 9 deletions
diff --git a/fml/lib/Mail/Message/Address.pm b/fml/lib/Mail/Message/Address.pm index ab58c27c..b1d259a2 100644 --- a/fml/lib/Mail/Message/Address.pm +++ b/fml/lib/Mail/Message/Address.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: Address.pm,v 1.5 2004/07/06 23:55:58 fukachan Exp $ +# $FML: Address.pm,v 1.6 2004/07/23 13:16:44 fukachan Exp $ # package Mail::Message::Address; @@ -75,7 +75,7 @@ sub as_str =head1 CLEAN UP -=head2 clean_up() +=head2 cleanup() clean up address. no return value. @@ -86,7 +86,7 @@ clean up address. no return value. # Arguments: OBJ($self) # Side Effects: update $self->{ _string }. # Return Value: none -sub clean_up +sub cleanup { my ($self) = @_; my $addr = $self->{ _string } || ''; diff --git a/fml/lib/Mail/Message/DB.pm b/fml/lib/Mail/Message/DB.pm index e5a77532..48ad11f0 100644 --- a/fml/lib/Mail/Message/DB.pm +++ b/fml/lib/Mail/Message/DB.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: DB.pm,v 1.22 2005/08/06 10:06:00 fukachan Exp $ +# $FML: DB.pm,v 1.23 2005/08/19 11:15:23 fukachan Exp $ # package Mail::Message::DB; @@ -21,7 +21,7 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD use Carp; use File::Spec; -my $version = q$FML: DB.pm,v 1.22 2005/08/06 10:06:00 fukachan Exp $; +my $version = q$FML: DB.pm,v 1.23 2005/08/19 11:15:23 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = $1;} # special value @@ -331,7 +331,7 @@ sub _save_header_info # ADDR type: save the first element of address list. if ($header_field_type{ $key } =~ /ADDR/o) { # ADDR or ADDR_LIST - my $ra_val = $self->_address_clean_up( $val ); + my $ra_val = $self->_address_cleanup( $val ); $val = $ra_val->[0] || ''; $self->_db_set($db, $key, $id, $val); } @@ -376,8 +376,8 @@ sub _analyze_thread { my ($self, $db, $id, $msg, $hdr) = @_; my $current_key = $self->get_key(); - my $ra_ref = $self->_address_clean_up($hdr->get('references')); - my $ra_inreplyto = $self->_address_clean_up($hdr->get('in-reply-to')); + my $ra_ref = $self->_address_cleanup($hdr->get('references')); + my $ra_inreplyto = $self->_address_cleanup($hdr->get('in-reply-to')); my $in_reply_to = $ra_inreplyto->[0] || ''; my %uniq = (); my $count = 0; @@ -912,7 +912,7 @@ sub _decode_mime_string # Arguments: OBJ($self) STR($addr) # Side Effects: none # Return Value: ARRAY_REF -sub _address_clean_up +sub _address_cleanup { my ($self, $addr) = @_; my (@r); |