X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=blobdiff_plain;f=mime.el;h=56bdb1ba75178d91ada8b405977fa32eed88a619;hp=2160569835a3453bca680537a26a222307e1411f;hb=df7818ff1175b1561fec9d1ee57c0f3062d499d2;hpb=067462b6c07cd0bb879045bf1c3d83a7f4e0634c

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)