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 (file)
--- 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 (file)
--- 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
 ;;;