diff options
| author | fukachan <fukachan> | 2003-01-11 15:13:51 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-01-11 15:13:51 +0000 |
| commit | 9ed29e4247da46292b272e1def3ca52a92f15704 (patch) | |
| tree | 64f74dff7588190e758a5043924b70a21a66e97a /fml/lib/Mail/Message.pm | |
| parent | 70ef5d98adf2ab1773beea44fdb3e5c9471cd031 (diff) | |
| download | fml8-9ed29e4247da46292b272e1def3ca52a92f15704.tar.gz fml8-9ed29e4247da46292b272e1def3ca52a92f15704.tar.bz2 fml8-9ed29e4247da46292b272e1def3ca52a92f15704.zip | |
remove not used variables.
fix comments.
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 deb33792..9507ed7e 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.70 2003/01/09 00:43:57 fukachan Exp $ +# $FML: Message.pm,v 1.71 2003/01/09 03:46:23 fukachan Exp $ # package Mail::Message; @@ -721,7 +721,7 @@ sub whole_message_header_data_type # Descriptions: return boundary defined in Content-Type -# Arguments: OBJ($self) OBJ($Header) +# Arguments: OBJ($self) OBJ($header) # Side Effects: none. # Return Value: STR sub _header_mime_boundary @@ -893,7 +893,7 @@ The previous part of C<$self> object is C<$obj>. # Descriptions: set next message in the chain -# Arguments: OBJ($self) OBJ(ref_next_message) +# Arguments: OBJ($self) OBJ($ref_next_message) # Side Effects: update next pointer in object # Return Value: OBJ sub _next_message_is @@ -904,7 +904,7 @@ sub _next_message_is # Descriptions: set previous message in the chain -# Arguments: OBJ($self) OBJ(ref_prev_message) +# Arguments: OBJ($self) OBJ($ref_prev_message) # Side Effects: update prev pointer in object # Return Value: OBJ sub _prev_message_is @@ -2068,7 +2068,7 @@ sub message_text # Descriptions: get body in message as ARRAY REF -# Arguments: OBJ($self) NUM($size) +# Arguments: OBJ($self) VARARGS(@argv) # Side Effects: none # Return Value: ARRAY_REF sub message_text_as_array_ref |