From: shuhei <shuhei>
Date: Thu, 19 Apr 2001 07:47:37 +0000 (+0000)
Subject: (make-mime-content-type): Don't reverse parameters.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=019df7d48f4f92d7559cdafd6992fbf0498b7715;p=elisp%2Fflim.git

(make-mime-content-type): Don't reverse parameters.
(make-mime-content-disposition): New function.
---

diff --git a/mime-def.el b/mime-def.el
index 3adf2d1..6177341 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -191,8 +191,7 @@ If method is nil, this field will not be encoded."
 (defsubst make-mime-content-type (type subtype &optional parameters)
   (cons (cons 'type type)
 	(cons (cons 'subtype subtype)
-	      ;; parameters are not order sensitive. should we reverse it?
-	      (nreverse parameters))))
+	      parameters)))
 
 (defsubst mime-content-type-primary-type (content-type)
   "Return primary-type of CONTENT-TYPE."
@@ -222,6 +221,10 @@ If method is nil, this field will not be encoded."
 ;;; @ Content-Disposition
 ;;;
 
+(defsubst make-mime-content-disposition (type &optional parameters)
+  (cons (cons 'type type)
+	parameters))
+
 (defsubst mime-content-disposition-type (content-disposition)
   "Return disposition-type of CONTENT-DISPOSITION."
   (cdr (car content-disposition)))