From: Jae-hyeon Park Date: Sat, 29 Jan 2022 14:44:44 +0000 (+0100) Subject: Make gnus-icalendar-with-decoded-handle more DWIM X-Git-Tag: emacs-29.0.90~2667 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=852a5f24bb28a5d814a9515faa525c5bd5ab1c71;p=emacs.git Make gnus-icalendar-with-decoded-handle more DWIM * lisp/gnus/gnus-icalendar.el (gnus-icalendar-with-decoded-handle): Assume that calendars with no charset is utf-8. Copyright-paperwork-exempt: yes --- diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index 754a1d91cb5..1bffdf3513a 100644 --- a/lisp/gnus/gnus-icalendar.el +++ b/lisp/gnus/gnus-icalendar.el @@ -830,11 +830,12 @@ These will be used to retrieve the RSVP information from ical events." (defmacro gnus-icalendar-with-decoded-handle (handle &rest body) "Execute BODY in buffer containing the decoded contents of HANDLE." (let ((charset (make-symbol "charset"))) - `(let ((,charset (cdr (assoc 'charset (mm-handle-type ,handle))))) + `(let ((,charset (downcase + (or (cdr (assoc 'charset (mm-handle-type ,handle))) + "utf-8")))) (with-temp-buffer (mm-insert-part ,handle) - (when (and ,charset (string= (downcase ,charset) "utf-8")) - (decode-coding-region (point-min) (point-max) 'utf-8)) + (decode-coding-region (point-min) (point-max) (intern ,charset)) ,@body))))