From b50e51120687a7c82046e9b24b28f9576f8c273b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 9 Jul 2012 02:13:07 +0000 Subject: [PATCH] mm-decode.el (mm-shr): Allow overriding charset by mm-charset-override-alist --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mm-decode.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 58a3b879361..beb3cc2cf94 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-07-09 Katsumi Yamaoka + + * mm-decode.el (mm-shr): + Allow overriding charset by mm-charset-override-alist. + 2012-07-03 Katsumi Yamaoka * gnus-art.el (gnus-article-view-part): diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index d0401bc9de3..7982b745d66 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1772,7 +1772,8 @@ If RECURSIVE, search recursively." (insert (prog1 (if (and charset (setq charset - (mm-charset-to-coding-system charset)) + (mm-charset-to-coding-system charset + nil t)) (not (eq charset 'ascii))) (mm-decode-coding-string (buffer-string) charset) (mm-string-as-multibyte (buffer-string))) -- 2.39.2