[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 852a5f24bb: Make gnus-icalendar-with-decoded-handle more DWIM
From: |
Lars Ingebrigtsen |
Subject: |
master 852a5f24bb: Make gnus-icalendar-with-decoded-handle more DWIM |
Date: |
Sat, 29 Jan 2022 09:45:08 -0500 (EST) |
branch: master
commit 852a5f24bb28a5d814a9515faa525c5bd5ab1c71
Author: Jae-hyeon Park <jhpark@kias.re.kr>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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
---
lisp/gnus/gnus-icalendar.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index 754a1d91cb..1bffdf3513 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 852a5f24bb: Make gnus-icalendar-with-decoded-handle more DWIM,
Lars Ingebrigtsen <=