From 9b3021766e310f9592e38923624cb9e99797088c Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 24 Sep 2001 15:02:38 +0000 Subject: [PATCH] * mime-view.el (mime-view-read-content-transfer-encoding): Canonicalize "charset" parameter. --- mime-view.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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) -- 1.7.10.4