From: czkmt <czkmt>
Date: Sat, 15 Jan 2000 10:42:22 +0000 (+0000)
Subject: (gnus-article-next-page): Scroll up LINES if `pos-visible-in-window-p'
X-Git-Tag: t-gnus-6_14_1-02~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b9d22dcd37602a0d02b1f2369df8899ba933cf6;p=elisp%2Fgnus.git-

(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
--- 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))