From 9b9d22dcd37602a0d02b1f2369df8899ba933cf6 Mon Sep 17 00:00:00 2001 From: czkmt Date: Sat, 15 Jan 2000 10:42:22 +0000 Subject: [PATCH] (gnus-article-next-page): Scroll up LINES if `pos-visible-in-window-p' returns nil. --- lisp/gnus-art.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4