Mercurial > emacs

changeset 110143:19ce95f8bbbb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-article-html: Make work buffer multibyte for decoded contents.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 02 Sep 2010 03:47:31 +0000
parents 1206368c6f20
children 6b5dc2e2565e d0ac153f6acf
files lisp/gnus/ChangeLog lisp/gnus/gnus-html.el
diffstat 2 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Thu Sep 02 03:43:31 2010 +0000
+++ b/lisp/gnus/ChangeLog	Thu Sep 02 03:47:31 2010 +0000
@@ -1,3 +1,8 @@
+2010-09-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-html.el (gnus-article-html): Make work buffer multibyte for
+	decoded contents.
+
 2010-09-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus-group.el (gnus-group-line-format): Remove %O (moderated) from
--- a/lisp/gnus/gnus-html.el	Thu Sep 02 03:43:31 2010 +0000
+++ b/lisp/gnus/gnus-html.el	Thu Sep 02 03:47:31 2010 +0000
@@ -82,7 +82,10 @@
 	    (when (and charset
 		       (setq charset (mm-charset-to-coding-system charset))
 		       (not (eq charset 'ascii)))
-	      (mm-decode-coding-region (point-min) (point-max) charset))
+	      (insert (prog1
+			  (mm-decode-coding-string (buffer-string) charset)
+			(erase-buffer)
+			(mm-enable-multibyte))))
 	    (call-process-region (point-min) (point-max)
 				 "w3m"
 				 nil article-buffer nil