From: keiichi <keiichi>
Date: Wed, 24 Nov 1999 10:49:57 +0000 (+0000)
Subject: (mime-parse-parameters-from-list): Downcase attribute name.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=014999c9e2dd0b544b93430a45fb7d4c41f4862e;p=elisp%2Fflim.git

(mime-parse-parameters-from-list): Downcase attribute name.
---

diff --git a/mime-parse.el b/mime-parse.el
index 796d099..9d330e0 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -125,9 +125,9 @@ be the result."
 			  0))
 		(encoded (if (match-beginning 4) t nil))
 		(parm (progn
-			(setq name (substring name
-					      (match-beginning 1)
-					      (match-end 1)))
+			(setq name (downcase (substring name
+							(match-beginning 1)
+							(match-end 1))))
 			(or (assoc name rest)
 			    (car (setq rest
 				       (cons (make-mime-parameter name)