(mime-content-type-parameter): Expand `mime-content-type-parameters'.

diff --git a/mime-def.el b/mime-def.el
index 6177341..a77f014 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -207,7 +207,7 @@ If method is nil, this field will not be encoded."
 
 (defsubst mime-content-type-parameter (content-type parameter)
   "Return PARAMETER value of CONTENT-TYPE."
-  (cdr (assoc parameter (mime-content-type-parameters content-type))))
+  (cdr (assoc parameter (cdr (cdr content-type)))))
 
 
 (defsubst mime-type/subtype-string (type &optional subtype)