From: morioka <morioka>
Date: Sun, 15 Mar 1998 13:28:14 +0000 (+0000)
Subject: (mime-root-entity-p): New function.
X-Git-Tag: semi-1_1_0~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c69dbd56a8479ff1bd7c9561692fa6527ba2a13;p=elisp%2Fsemi.git

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

diff --git a/mime-parse.el b/mime-parse.el
index f63752a..493bbcb 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -273,6 +273,14 @@ mime-{parse|read}-Content-Type."
       )))
 
 
+;;; @ utilities
+;;;
+
+(defsubst mime-root-entity-p (entity)
+  "Return t if ENTITY is root-entity (message)."
+  (null (mime-entity-node-id entity)))
+
+
 ;;; @ end
 ;;;