From f10f0c3b83141bcc18785031da9b2f681fa3f62b Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 16 Jun 1998 16:15:48 +0000 Subject: [PATCH] Move definition of structure `mime-entity' to FLIM layer. --- mime-parse.el | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/mime-parse.el b/mime-parse.el index f9757d1..2749e6a 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -180,25 +180,6 @@ If is is not found, return DEFAULT-ENCODING." ;;; @ message parser ;;; -(defsubst make-mime-entity (buffer - header-start header-end body-start body-end - &optional node-id - content-type content-disposition - encoding children) - (vector buffer header-start header-end body-start body-end - node-id content-type content-disposition encoding children)) - -(defsubst mime-entity-buffer (entity) (aref entity 0)) -(defsubst mime-entity-header-start (entity) (aref entity 1)) -(defsubst mime-entity-header-end (entity) (aref entity 2)) -(defsubst mime-entity-body-start (entity) (aref entity 3)) -(defsubst mime-entity-body-end (entity) (aref entity 4)) -(defsubst mime-entity-node-id (entity) (aref entity 5)) -(defsubst mime-entity-content-type (entity) (aref entity 6)) -(defsubst mime-entity-content-disposition (entity) (aref entity 7)) -(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))) -- 1.7.10.4