diff options
| -rw-r--r-- | fml/lib/FML/Parse.pm | 6 | ||||
| -rw-r--r-- | fml/lib/Mail/Bounce/Postfix19991231.pm | 4 | ||||
| -rw-r--r-- | fml/lib/Mail/Message.pm | 10 |
3 files changed, 10 insertions, 10 deletions
diff --git a/fml/lib/FML/Parse.pm b/fml/lib/FML/Parse.pm index f2b7befc..572adf2d 100644 --- a/fml/lib/FML/Parse.pm +++ b/fml/lib/FML/Parse.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: Parse.pm,v 1.18 2001/12/22 09:21:02 fukachan Exp $ +# $FML: Parse.pm,v 1.19 2002/01/13 12:50:51 fukachan Exp $ # package FML::Parse; @@ -77,8 +77,8 @@ sub _parse }); # log information - my $header_size = $msg->whole_message_header_size(); - my $body_size = $msg->whole_message_body_size(); + my $header_size = $msg->rfc822_message_header_size(); + my $body_size = $msg->rfc822_message_body_size(); Log("read header=$header_size body=$body_size"); if (defined $msg->envelope_sender()) { diff --git a/fml/lib/Mail/Bounce/Postfix19991231.pm b/fml/lib/Mail/Bounce/Postfix19991231.pm index 5e37fcfc..1f7ff698 100644 --- a/fml/lib/Mail/Bounce/Postfix19991231.pm +++ b/fml/lib/Mail/Bounce/Postfix19991231.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: Postfix19991231.pm,v 1.11 2001/12/23 15:03:27 fukachan Exp $ +# $FML: Postfix19991231.pm,v 1.12 2002/01/13 06:23:27 fukachan Exp $ # @@ -58,7 +58,7 @@ subclass used in C<Mail::Bounce>. sub analyze { my ($self, $msg, $result) = @_; - my $data_type = $msg->header_data_type(); + my $data_type = $msg->rfc822_message_header_data_type(); if ($data_type =~ /multipart/i) { $self->_analyze_broken_dsn($msg, $result); diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 8b23dbbd..fa8b06b1 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.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: Message.pm,v 1.39 2002/01/13 11:49:28 fukachan Exp $ +# $FML: Message.pm,v 1.40 2002/01/13 12:50:52 fukachan Exp $ # package Mail::Message; @@ -712,7 +712,7 @@ sub find } -=head2 header_data_type() +=head2 rfc822_message_header_data_type() return the C<type> string. It is the whole message type which is speculated from header C<Content-Type:>. @@ -725,7 +725,7 @@ speculated from header C<Content-Type:>. # Arguments: OBJ($self) # Side Effects: none # Return Value: STR -sub header_data_type +sub rfc822_message_header_data_type { my ($self) = @_; my $hdr = $self->rfc822_message_header(); @@ -1690,7 +1690,7 @@ get whole body size for this object ($self) # Arguments: OBJ($self) # Side Effects: none # Return Value: NUM -sub whole_message_header_size +sub rfc822_message_header_size { my ($self) = @_; $self->{ data_info }->{ header_size }; @@ -1701,7 +1701,7 @@ sub whole_message_header_size # Arguments: OBJ($self) # Side Effects: none # Return Value: NUM -sub whole_message_body_size +sub rfc822_message_body_size { my ($self) = @_; $self->{ data_info }->{ body_size }; |