From: morioka <morioka>
Date: Tue, 9 Jun 1998 15:48:21 +0000 (+0000)
Subject: (mime-entity-number): New function.
X-Git-Tag: semi-1_5_4_9~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4deaacad51acf32435c8d5ba509951b968185520;p=elisp%2Fsemi.git

(mime-entity-number): New function.
---

diff --git a/mime-parse.el b/mime-parse.el
index 5ea30dd..213563c 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -200,14 +200,19 @@ If is is not found, return DEFAULT-ENCODING."
 (defsubst mime-entity-encoding (entity)            (aref entity 8))
 (defsubst mime-entity-children (entity)            (aref entity 9))
 
+(defsubst mime-entity-number (entity)
+  (reverse (mime-entity-node-id entity)))
+
 (defalias 'mime-entity-point-min 'mime-entity-header-start)
 (defalias 'mime-entity-point-max 'mime-entity-body-end)
+
 (defsubst mime-entity-media-type (entity)
   (mime-content-type-primary-type (mime-entity-content-type entity)))
 (defsubst mime-entity-media-subtype (entity)
   (mime-content-type-subtype (mime-entity-content-type entity)))
 (defsubst mime-entity-parameters (entity)
   (mime-content-type-parameters (mime-entity-content-type entity)))
+
 (defsubst mime-entity-type/subtype (entity-info)
   (mime-type/subtype-string (mime-entity-media-type entity-info)
 			    (mime-entity-media-subtype entity-info)))