(article-hide-headers): Don't change the buffer mistakenly when performing

 mml-preview even if gnus-single-article-buffer is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9920674..0b8ecc4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (article-hide-headers): Don't change the buffer
+       mistakenly when performing mml-preview even if
+       gnus-single-article-buffer is nil.
+
 2004-06-08  Kai Grossjohann  <kgrossjo@eu.uu.net>
 
        * message.el (message-expand-name-databases): New user option.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index ec0716a..11be0d1 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1579,6 +1579,7 @@ Initialized from `text-mode-syntax-table.")
          (case-fold-search t)
          (max (1+ (length gnus-sorted-header-list)))
          (inhibit-point-motion-hooks t)
+         (cur (current-buffer))
          ignored visible beg)
       (save-excursion
        ;; `gnus-ignored-headers' and `gnus-visible-headers' may be
@@ -1601,7 +1602,7 @@ Initialized from `text-mode-syntax-table.")
                                     (mapconcat 'identity
                                                gnus-visible-headers
                                                "\\|")))))
-         (set-buffer gnus-article-buffer))
+         (set-buffer cur))
        (save-restriction
          ;; First we narrow to just the headers.
          (article-narrow-to-head)