diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-11-27 06:39:37 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-11-27 06:39:37 +0000 |
| commit | 0717822943efa5013dffa1494f528e23d102ae72 (patch) | |
| tree | 286a1a348b9bef33ed04e561d2dd7ea1c6b8088d /lisp/gnus/gnus-html.el | |
| parent | 52d6635f8170ad0f5269afb47dc41d5527fbe65c (diff) | |
| download | emacs-0717822943efa5013dffa1494f528e23d102ae72.tar.gz | |
[Gnus] Allow overriding charset in some decoding functions
Diffstat (limited to 'lisp/gnus/gnus-html.el')
| -rw-r--r-- | lisp/gnus/gnus-html.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 2700af3d009..36c1677be0a 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -143,7 +143,8 @@ CHARS is a regexp-like character alternative (e.g., \"[)$]\")." (charset (mail-content-type-get (mm-handle-type handle) 'charset))) (when (and charset - (setq charset (mm-charset-to-coding-system charset)) + (setq charset (mm-charset-to-coding-system + charset nil t)) (not (eq charset 'ascii))) (insert (prog1 (mm-decode-coding-string (buffer-string) charset) |