(gnus-article-next-page): Scroll up LINES if `pos-visible-in-window-p'

returns nil.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f7b5fff..a327e5e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3844,7 +3844,8 @@ Argument LINES specifies lines to be scrolled up."
        (forward-line 1)
        (setq start nil))
       (unless (or (cond ((eq (1+ (buffer-size)) (point))
-                        (setq end-of-buffer t))
+                        (and (pos-visible-in-window-p)
+                             (setq end-of-buffer t)))
                        ((eobp)
                         (setq end-of-page t)))
                  (not lines))