(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 (file)
--- 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
 ;;;