(mime-content-disposition-parameter): New function.

(mime-content-disposition-filename): New function.

diff --git a/mime-parse.el b/mime-parse.el
index c1317e4..0efa86e 100644 (file)
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -160,6 +160,14 @@ and return parsed it."
   "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"))
+
 
 ;;; @ Content-Transfer-Encoding
 ;;;