From 1e66d1490d992d90e1f2cd7ff4bbe9663d175444 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 9 Mar 2001 06:26:31 +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 b1a3e67..06cacf2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2001-03-09 Akihiro Arisawa + + * mime.el (mime-find-root-entity): Find root recursively. + 2000-12-28 Katsumi Yamaoka * mel.el (binary-to-text-funcall, binary-funcall): Rewrite using diff --git a/mime.el b/mime.el index 8d6a146..5709032 100644 --- a/mime.el +++ b/mime.el @@ -149,10 +149,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