From 019df7d48f4f92d7559cdafd6992fbf0498b7715 Mon Sep 17 00:00:00 2001 From: shuhei Date: Thu, 19 Apr 2001 07:47:37 +0000 Subject: [PATCH] (make-mime-content-type): Don't reverse parameters. (make-mime-content-disposition): New function. --- mime-def.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4