From: teranisi <teranisi>
Date: Mon, 30 Oct 2000 01:25:13 +0000 (+0000)
Subject: * mmelmo.el (mime-parse-parameters-from-list): Don't downcase
X-Git-Tag: wl-2_4-root~56
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=25e380488e08d53b6dada79537c620a248e65bca;p=elisp%2Fwanderlust.git

* mmelmo.el (mime-parse-parameters-from-list): Don't downcase
parameter value (It sometimes contains raw kanji).
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 102273a..76b2a14 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo.el (mime-parse-parameters-from-list): Don't downcase
+	parameter value (It sometimes contains raw kanji).
+
 2000-10-28  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-imap4.el (elmo-network-initialize-session): Check capability.
diff --git a/elmo/mmelmo.el b/elmo/mmelmo.el
index 14b24ff..81eb57e 100644
--- a/elmo/mmelmo.el
+++ b/elmo/mmelmo.el
@@ -156,7 +156,7 @@ If function is specified, its return value is used.")
 	(while attrlist
 	  (setq ret-val (append ret-val
 				(list (cons (downcase (car attrlist))
-					    (downcase (car (cdr attrlist)))))))
+					    (car (cdr attrlist))))))
 	  (setq attrlist (cdr (cdr attrlist))))
 	ret-val)))