From b3453b579703c8fe595669e5700c929816f6ef63 Mon Sep 17 00:00:00 2001 From: keiichi Date: Mon, 10 Jan 2000 08:15:38 +0000 Subject: [PATCH] (mime-entity-root): New function. --- mime.el | 6 ++++++ 1 file changed, 6 insertions(+) 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." -- 1.7.10.4