From: morioka <morioka>
Date: Fri, 19 Jun 1998 22:36:56 +0000 (+0000)
Subject: Move `mime-content-disposition' reference functions from
X-Git-Tag: flim-1_5_0~36
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=146fa4f6cfdd50c89fe31c222ffef2fc1fc18a33

Move `mime-content-disposition' reference functions from
mime-parse.el.
---

diff --git a/mime-def.el b/mime-def.el
index a0b50b3..357bf00 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
 ;;;