From 4deaacad51acf32435c8d5ba509951b968185520 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 9 Jun 1998 15:48:21 +0000 Subject: [PATCH] (mime-entity-number): New function. --- mime-parse.el | 5 +++++ 1 file changed, 5 insertions(+) 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))) -- 1.7.10.4