Synch to No Gnus 200406170516.

[elisp/gnus.git-] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 19624e7..92d4403 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1701,6 +1701,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
@@ -1723,7 +1724,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)
@@ -5391,6 +5392,7 @@ Argument LINES specifies lines to be scrolled up."
              (save-excursion
                (save-restriction
                  (widen)
+                 (forward-line)
                  (eobp)))) ;Real end-of-buffer?
          (progn
            (when gnus-article-over-scroll