From: Robert Pluim <rpluim@gmail.com>
Date: Sun, 14 Apr 2019 12:36:30 +0000 (+0200)
Subject: Downcase charset
X-Git-Tag: emacs-26.2.90~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=266c62290f5a0843555d2a18878a58395a6fd05f;p=emacs.git

Downcase charset

RFC 2046 specifies that the charset parameter is case-insensitive.

* lisp/gnus/gnus-icalendar.el (gnus-icalendar-with-decoded-handle):
Downcase charset.  Suggested by Christophe TROESTLER
<Christophe.TROESTLER@umons.ac.be>.  (Bug#35265).
---

diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index f79ce368437..e4ad2af0630 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -767,7 +767,7 @@ These will be used to retrieve the RSVP information from ical events."
     `(let ((,charset (cdr (assoc 'charset (mm-handle-type ,handle)))))
        (with-temp-buffer
          (mm-insert-part ,handle)
-         (when (string= ,charset "utf-8")
+         (when (string= (downcase ,charset) "utf-8")
            (decode-coding-region (point-min) (point-max) 'utf-8))
          ,@body))))