From: morioka <morioka>
Date: Fri, 19 Jun 1998 22:54:49 +0000 (+0000)
Subject: Move `mime-root-entity-p' from mime-parse.el to mime-lib.el.
X-Git-Tag: flim-1_5_0~31
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ba48299d32678720649ec9731545993a7278ab05;p=elisp%2Fflim.git

Move `mime-root-entity-p' from mime-parse.el to mime-lib.el.
---

diff --git a/mime-lib.el b/mime-lib.el
index 2435c4f..fb46ca9 100644
--- a/mime-lib.el
+++ b/mime-lib.el
@@ -58,6 +58,9 @@ current-buffer, and return it.")
   "Parse BUFFER as a MIME message.")
 
 
+;;; @ MIME entity
+;;;
+
 (defun mime-entity-fetch-field (entity field-name)
   (or (symbolp field-name)
       (setq field-name (intern (capitalize (capitalize field-name)))))
@@ -121,6 +124,10 @@ current-buffer, and return it.")
 		    entity (put-alist field-name field header))
 		   field)))))))
 
+(defsubst mime-root-entity-p (entity)
+  "Return t if ENTITY is root-entity (message)."
+  (null (mime-entity-node-id entity)))
+
 
 ;;; @ end
 ;;;
diff --git a/mime-parse.el b/mime-parse.el
index 2c59c1f..b50ce1a 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -302,14 +302,6 @@ If buffer is omitted, it parses current-buffer."
     ))
 
 
-;;; @ utilities
-;;;
-
-(defsubst mime-root-entity-p (entity)
-  "Return t if ENTITY is root-entity (message)."
-  (null (mime-entity-node-id entity)))
-
-
 ;;; @ end
 ;;;