* 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 (file)
--- 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 (file)
--- 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)))