diff options
| author | fukachan <fukachan> | 2003-05-01 14:00:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-05-01 14:00:57 +0000 |
| commit | b679659e022fdbac1be2e51554990bdb0f984276 (patch) | |
| tree | 05eb2d4cd22e35f8f81815f08901a1cab2786bf7 | |
| parent | 1d51c7859b66c89d12d22a168f9527f986102cea (diff) | |
| download | fml8-b679659e022fdbac1be2e51554990bdb0f984276.tar.gz fml8-b679659e022fdbac1be2e51554990bdb0f984276.tar.bz2 fml8-b679659e022fdbac1be2e51554990bdb0f984276.zip | |
implement whole_message_header_as_str()
| -rw-r--r-- | fml/lib/Mail/Message.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 46a1e807..e1f69f8a 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.76 2003/04/18 14:37:47 tmu Exp $ +# $FML: Message.pm,v 1.77 2003/05/01 10:56:08 fukachan Exp $ # package Mail::Message; @@ -664,6 +664,18 @@ sub whole_message_header } +# Descriptions: get header content as string. +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: STR +sub whole_message_header_as_str +{ + my ($self) = @_; + my $m = $self->whole_message_header(); + return $m->as_string(); +} + + # Descriptions: get the head OBJ of body part in the chain. # header -> body1 (HERE) -> body2 -> ... # Arguments: OBJ($self) |