diff options
| author | tmu <tmu> | 2002-04-07 14:51:15 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2002-04-07 14:51:15 +0000 |
| commit | 117b5cc6cf3e2e99b307fd32cd5e10a302fed65b (patch) | |
| tree | 2a585251cc359e9529057369c7c9a9e20d6968f2 /fml/lib | |
| parent | 90fae0f1a9ae51d5afe239e0d0278dfa9105ce00 (diff) | |
| download | fml8-117b5cc6cf3e2e99b307fd32cd5e10a302fed65b.tar.gz fml8-117b5cc6cf3e2e99b307fd32cd5e10a302fed65b.tar.bz2 fml8-117b5cc6cf3e2e99b307fd32cd5e10a302fed65b.zip | |
define delete_message_part_link()
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Message.pm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 209f11a8..aa67b415 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.47 2002/01/18 15:38:41 fukachan Exp $ +# $FML: Message.pm,v 1.48 2002/02/01 12:03:59 fukachan Exp $ # package Mail::Message; @@ -1504,6 +1504,24 @@ sub _alloc_new_part return bless $me, ref($self); } +# Descriptions: delete message part link +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: null +sub delete_message_part_link +{ + my ($self) = @_; + my $mp = $self; + my $prevmp = $mp->{ prev }; + my $nextmp = $mp->{ next }; + my $data_type = $mp->data_type(); + + return if($data_type eq "text/rfc822-headers"); + + _prev_message_is($nextmp,$prevmp); + _next_message_is($prevmp,$nextmp); +} + # Descriptions: search the next MIME boundary # Arguments: OBJ($self) HASH_STR($data) STR($delimeter) |