From: morioka <morioka>
Date: Sat, 16 May 1998 02:36:48 +0000 (+0000)
Subject: (mime-content-disposition-parameter): New function.
X-Git-Tag: remi-1_4_0~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dd8581cbad2f48f4a2cb4d0d695f2d90ee607707;p=elisp%2Fsemi.git

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