From: keiichi <keiichi>
Date: Mon, 10 Jan 2000 08:15:38 +0000 (+0000)
Subject: (mime-entity-root): New function.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b3453b579703c8fe595669e5700c929816f6ef63;p=elisp%2Fflim.git

(mime-entity-root): New function.
---

diff --git a/mime.el b/mime.el
index 63af880..a8edfb9 100644
--- a/mime.el
+++ b/mime.el
@@ -137,6 +137,12 @@ If MESSAGE is specified, it is regarded as root entity."
       nil
     (mime-entity-parent-internal entity)))
 
+(defun mime-entity-root (entity)
+  "Return root entity of the ENTITY."
+  (while (mime-entity-parent-internal entity)
+    (setq entity (mime-entity-parent-internal entity)))
+  entity)
+
 (defun mime-root-entity-p (entity &optional message)
   "Return t if ENTITY is root-entity (message).
 If MESSAGE is specified, it is regarded as root entity."