diff options
| author | fukachan <fukachan> | 2002-01-13 12:50:51 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-01-13 12:50:51 +0000 |
| commit | 4b447a791ecd9d6d706d4d71c677d97af709014d (patch) | |
| tree | 6c2de2660d2e2dafb495144adf1baa80ecf48209 /fml/lib | |
| parent | f2b96207216984cba1db34311516a9ccc892f9d8 (diff) | |
| download | fml8-4b447a791ecd9d6d706d4d71c677d97af709014d.tar.gz fml8-4b447a791ecd9d6d706d4d71c677d97af709014d.tar.bz2 fml8-4b447a791ecd9d6d706d4d71c677d97af709014d.zip | |
header_size() -> whole_message_header_size()
body_size() -> whole_message_body_size()
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Parse.pm | 6 | ||||
| -rw-r--r-- | fml/lib/Mail/Message.pm | 8 |
2 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/FML/Parse.pm b/fml/lib/FML/Parse.pm index 891a8ee4..f2b7befc 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.17 2001/12/22 09:11:56 fukachan Exp $ +# $FML: Parse.pm,v 1.18 2001/12/22 09:21:02 fukachan Exp $ # package FML::Parse; @@ -77,8 +77,8 @@ sub _parse }); # log information - my $header_size = $msg->header_size(); - my $body_size = $msg->body_size(); + my $header_size = $msg->whole_message_header_size(); + my $body_size = $msg->whole_message_body_size(); Log("read header=$header_size body=$body_size"); if (defined $msg->envelope_sender()) { diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 3b0e0a2c..8b23dbbd 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.38 2002/01/13 11:37:10 fukachan Exp $ +# $FML: Message.pm,v 1.39 2002/01/13 11:49:28 fukachan Exp $ # package Mail::Message; @@ -1561,7 +1561,7 @@ sub _set_pos =head2 size() -return the message size. +return the message size of this object. =head2 is_empty() @@ -1690,7 +1690,7 @@ get whole body size for this object ($self) # Arguments: OBJ($self) # Side Effects: none # Return Value: NUM -sub header_size +sub whole_message_header_size { my ($self) = @_; $self->{ data_info }->{ header_size }; @@ -1701,7 +1701,7 @@ sub header_size # Arguments: OBJ($self) # Side Effects: none # Return Value: NUM -sub body_size +sub whole_message_body_size { my ($self) = @_; $self->{ data_info }->{ body_size }; |