From: morioka <morioka>
Date: Mon, 11 May 1998 17:45:04 +0000 (+0000)
Subject: (mime-content-disposition-type): New function.
X-Git-Tag: remi-1_4_0-pre2~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=66389f397ec01b65d9586c4ae15bc14f76b3475d;p=elisp%2Fsemi.git

(mime-content-disposition-type): New function.
(mime-content-disposition-parameters): New function.
---

diff --git a/mime-parse.el b/mime-parse.el
index 2ccd24c..c2316db 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -146,6 +146,14 @@ and return parsed it."
 	(mime-parse-Content-Disposition str)
       )))
 
+(defsubst mime-content-disposition-type (content-disposition)
+  "Return disposition-type of CONTENT-DISPOSITION."
+  (cdr (car content-type)))
+
+(defsubst mime-content-disposition-parameters (content-disposition)
+  "Return disposition-parameters of CONTENT-DISPOSITION."
+  (cdr (cdr content-type)))
+
 
 ;;; @ Content-Transfer-Encoding
 ;;;