aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKatsumi Yamaoka2017-02-20 06:17:20 +0000
committerKatsumi Yamaoka2017-02-20 06:17:20 +0000
commit851b38bcdfdb1a503f1434f4459af9d1d325f2d0 (patch)
tree752c5b1afcb6b8604d7ed5e57995f67b2160bd8d
parent0a670690f19bf263dadfe387e5bb22311e3b5231 (diff)
downloademacs-851b38bcdfdb1a503f1434f4459af9d1d325f2d0.tar.gz
emacs-851b38bcdfdb1a503f1434f4459af9d1d325f2d0.zip
mm-shr: Ignore coding-system `ascii'
* lisp/gnus/mm-decode.el (mm-shr): Ignore coding-system `ascii'.
-rw-r--r--lisp/gnus/mm-decode.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 6683d68a318..becf6d140b1 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1808,8 +1808,9 @@ text/\\(\\sw+\\)\\(?:;\\s-*charset=\\([^\t\n\r \"'>]+\\)\\)?[^>]*>" nil t)
1808 nil t)) 1808 nil t))
1809 (string-match "\\`html\\'" (match-string 1)))) 1809 (string-match "\\`html\\'" (match-string 1))))
1810 mail-parse-charset)) 1810 mail-parse-charset))
1811 (when (or coding 1811 (when (and (or coding
1812 (setq coding (mm-charset-to-coding-system charset nil t))) 1812 (setq coding (mm-charset-to-coding-system charset nil t)))
1813 (not (eq coding 'ascii)))
1813 (insert (prog1 1814 (insert (prog1
1814 (decode-coding-string (buffer-string) coding) 1815 (decode-coding-string (buffer-string) coding)
1815 (erase-buffer) 1816 (erase-buffer)