From: morioka <morioka>
Date: Fri, 19 Jun 1998 22:46:21 +0000 (+0000)
Subject: `mime-entity-point-min', `mime-entity-point-max',
X-Git-Tag: flim-1_5_0~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=217c92773254540b42d49feef26eff2a236938a8;p=elisp%2Fflim.git

`mime-entity-point-min', `mime-entity-point-max',
`mime-entity-media-type', `mime-entity-media-subtype',
`mime-entity-parameters' and `mime-entity-type/subtype' were moved
from mime-parse.el.
---

diff --git a/mime-def.el b/mime-def.el
index 357bf00..15f66e4 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -199,6 +199,20 @@
 (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)))
+
 
 ;;; @ utility
 ;;;