From 17e69bb49422ce7045258a29b7b2ce7f42db4a4b Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Fri, 9 Mar 2001 06:25:45 +0000
Subject: [PATCH] * mime.el (mime-find-root-entity): Find root entity
 recursively.

---
 ChangeLog |    4 ++++
 mime.el   |    7 +++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e4297be..37f73b4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-09  Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
+
+	* mime.el (mime-find-root-entity): Find root recursively.
+
 2001-02-28  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
 	* mime-parse.el (mime-decode-parameter-plist,
diff --git a/mime.el b/mime.el
index 2160569..56bdb1b 100644
--- a/mime.el
+++ b/mime.el
@@ -144,10 +144,9 @@ If MESSAGE is specified, it is regarded as root entity."
 
 (defun mime-find-root-entity (entity)
   "Return root entity of ENTITY."
-  (let ((p (mime-entity-parent entity)))
-    (if (null p)
-	entity
-      (mime-entity-parent p))))
+  (while (not (mime-root-entity-p entity))
+    (setq entity (mime-entity-parent entity)))
+  entity)
 
 
 ;;; @ Header buffer (obsolete)
-- 
1.7.10.4