diff options
Diffstat (limited to 'fml/lib')
| -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) |