From 117b5cc6cf3e2e99b307fd32cd5e10a302fed65b Mon Sep 17 00:00:00 2001
From: tmu <tmu>
Date: Sun, 7 Apr 2002 14:51:15 +0000
Subject: define delete_message_part_link()

---
 fml/lib/Mail/Message.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.1