diff options
| author | fukachan <fukachan> | 2002-05-18 15:30:19 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-18 15:30:19 +0000 |
| commit | 178cbc192d5aa319ab46321392e0e215e804f82c (patch) | |
| tree | 6c09fd17d15b7131d9850ac248b222fb844a764c | |
| parent | a5953db3b30fea90e989ed81ca2ef43450364e1b (diff) | |
| download | fml8-178cbc192d5aa319ab46321392e0e215e804f82c.tar.gz fml8-178cbc192d5aa319ab46321392e0e215e804f82c.tar.bz2 fml8-178cbc192d5aa319ab46321392e0e215e804f82c.zip | |
implement message_text_as_array_ref()
| -rw-r--r-- | fml/lib/Mail/Message.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 6fd276d7..24756781 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.62 2002/05/11 09:46:29 fukachan Exp $ +# $FML: Message.pm,v 1.63 2002/05/11 09:52:45 fukachan Exp $ # package Mail::Message; @@ -2015,6 +2015,20 @@ sub message_text } +# Descriptions: get body in message as ARRAY REF +# Arguments: OBJ($self) NUM($size) +# Side Effects: none +# Return Value: ARRAY_REF +sub message_text_as_array_ref +{ + my ($self, @argv) = @_; + my $x = $self->message_text(@argv); + my @x = split(/\n/, $x); + + return \@x; +} + + =head2 find_first_plaintext_message($args) return the Messages object for the first "plain/text" message in a |