From ba48299d32678720649ec9731545993a7278ab05 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 19 Jun 1998 22:54:49 +0000
Subject: [PATCH] Move `mime-root-entity-p' from mime-parse.el to mime-lib.el.

---
 mime-lib.el   |    7 +++++++
 mime-parse.el |    8 --------
 2 files changed, 7 insertions(+), 8 deletions(-)

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
 ;;;
 
-- 
1.7.10.4