From: morioka <morioka>
Date: Sat, 16 May 1998 02:38:39 +0000 (+0000)
Subject: (mime-content-type-parameter): New function.
X-Git-Tag: remi-1_4_0~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2796a8a98cd0a9dee63b31d3df4df7c1c1e98861;p=elisp%2Fsemi.git

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

diff --git a/mime-parse.el b/mime-parse.el
index 0efa86e..2741a04 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -122,6 +122,10 @@ and return parsed it.  Format of return value is as same as
   "Return primary-type of CONTENT-TYPE."
   (cddr content-type))
 
+(defsubst mime-content-type-parameter (content-type parameter)
+  "Return PARAMETER value of CONTENT-TYPE."
+  (cdr (assoc parameter (mime-content-type-parameters content-type))))
+
 
 ;;; @ Content-Disposition
 ;;;