X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-def.el;h=15f66e4ef8ef5e148f3dc3c8c60854f0cebcceab;hb=217c92773254540b42d49feef26eff2a236938a8;hp=a0b50b388268dd25862c88c5468c0df2d4a7f7a2;hpb=34003a384cdec9e59999b3c7ff5c69aac572aad5;p=elisp%2Fflim.git

diff --git a/mime-def.el b/mime-def.el
index a0b50b3..15f66e4 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -146,6 +146,26 @@
   (cdr (assoc parameter (mime-content-type-parameters content-type))))
 
 
+;;; @ Content-Disposition
+;;;
+
+(defsubst mime-content-disposition-type (content-disposition)
+  "Return disposition-type of CONTENT-DISPOSITION."
+  (cdr (car content-disposition)))
+
+(defsubst mime-content-disposition-parameters (content-disposition)
+  "Return disposition-parameters of CONTENT-DISPOSITION."
+  (cdr content-disposition))
+
+(defsubst mime-content-disposition-parameter (content-disposition parameter)
+  "Return PARAMETER value of CONTENT-DISPOSITION."
+  (cdr (assoc parameter (cdr content-disposition))))
+
+(defsubst mime-content-disposition-filename (content-disposition)
+  "Return filename of CONTENT-DISPOSITION."
+  (mime-content-disposition-parameter content-disposition "filename"))
+
+
 ;;; @ MIME-entity
 ;;;
 
@@ -179,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
 ;;;