From: 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/gitweb/?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 ;;;