summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-icalendar.el
diff options
context:
space:
mode:
authorRobert Pluim <rpluim@gmail.com>2019-04-14 14:36:30 +0200
committerRobert Pluim <rpluim@gmail.com>2019-04-14 19:39:17 +0200
commit266c62290f5a0843555d2a18878a58395a6fd05f (patch)
treea924abfb8369405e37d856a338703803908526c1 /lisp/gnus/gnus-icalendar.el
parent92f3459cd7ac53e39b933e80411934d4011caae9 (diff)
downloademacs-266c62290f5a0843555d2a18878a58395a6fd05f.tar.gz
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).
Diffstat (limited to 'lisp/gnus/gnus-icalendar.el')
-rw-r--r--lisp/gnus/gnus-icalendar.el2
1 files changed, 1 insertions, 1 deletions
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))))