From: ueno <ueno>
Date: Mon, 24 Sep 2001 15:02:38 +0000 (+0000)
Subject: * mime-view.el (mime-view-read-content-transfer-encoding): Canonicalize
X-Git-Tag: emiko-1_14_0~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b3021766e310f9592e38923624cb9e99797088c;p=elisp%2Fsemi.git

* mime-view.el (mime-view-read-content-transfer-encoding): Canonicalize
"charset" parameter.
---

diff --git a/mime-view.el b/mime-view.el
index 49866b1..46ffab0 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1739,9 +1739,12 @@ If LINES is negative, scroll up LINES lines."
 	  ;; might be specified by `universal-coding-system-argument'.
 	  (and coding-system-for-read
 	       (coding-system-to-mime-charset coding-system-for-read)))
-      (intern (mime-content-type-parameter
-	       (mime-entity-content-type entity)
-	       "charset"))
+      (let ((charset-param
+	     (mime-content-type-parameter
+	      (mime-entity-content-type entity)
+	      "charset")))
+	(if charset-param
+	    (intern (downcase charset-param))))
       default-mime-charset))
 
 (defun mime-view-read-mime-charset (entity situation)