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/Mail/Message.pm | |
| 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/Mail/Message.pm')
| -rw-r--r-- | fml/lib/Mail/Message.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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 }; |