diff options
| author | fukachan <fukachan> | 2002-01-13 13:26:38 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-01-13 13:26:38 +0000 |
| commit | b6df18bc5e3fbe26ae889defadebc3fbef2a2b1a (patch) | |
| tree | f3759621c398fbcb1d9d6cc81b613f0b95531efa /fml/lib | |
| parent | 4b447a791ecd9d6d706d4d71c677d97af709014d (diff) | |
| download | fml8-b6df18bc5e3fbe26ae889defadebc3fbef2a2b1a.tar.gz fml8-b6df18bc5e3fbe26ae889defadebc3fbef2a2b1a.tar.bz2 fml8-b6df18bc5e3fbe26ae889defadebc3fbef2a2b1a.zip | |
use rfc822_message_ as prefix for method to manipulate the whole
message.
Diffstat (limited to 'fml/lib')
| -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 }; |