Really fix non-ASCII characters when washing HTML

(article-wash-html): Parse the original article buffer to get the
unencoded data (bug#7410).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59e3fc4..18fc264 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-art.el (article-wash-html): Ensure that we insert the HTML into
        a multibyte buffer (bug#7410).
+       (article-wash-html): Parse the original article buffer to get the
+       unencoded data (bug#7410).
 
        * gnus-start.el (gnus-read-newsrc-el-file): Protect against broken
        .newsrc.el files.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index af872a8..b04615d 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2754,7 +2754,8 @@ If READ-CHARSET, ask for a coding system."
   (let ((handles nil)
        (buffer-read-only nil))
     (when (gnus-buffer-live-p gnus-original-article-buffer)
-      (setq handles (mm-dissect-buffer t t)))
+      (with-current-buffer gnus-original-article-buffer
+       (setq handles (mm-dissect-buffer t t))))
     (article-goto-body)
     (delete-region (point) (point-max))
     (mm-enable-multibyte)