* gnus-art.el (gnus-article-next-page): Use

gnus-article-over-scroll.
(gnus-article-over-scroll): New variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acb5190..a7e0a6e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2003-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-art.el (gnus-article-next-page): Use
+       gnus-article-over-scroll.
+       (gnus-article-over-scroll): New variable.
+
        * message.el (message-newline-and-reformat): Place a boundary
        before filling.
        (message-make-forward-subject-function): Changed default to

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a8fcbc1..8a606c8 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1332,6 +1332,11 @@ This requires GNU Libidn, and by default only enabled if it is found."
   :group 'gnus-article-headers
   :type 'boolean)
 
+(defcustom gnus-article-over-scroll nil
+  "If non-nil, allow scrolling the article buffer even when there no more text."
+  :group 'gnus-article
+  :type 'boolean)
+
 ;;; Internal variables
 
 (defvar gnus-english-month-names
@@ -4890,10 +4895,11 @@ If end of article, return non-nil.  Otherwise return nil.
 Argument LINES specifies lines to be scrolled up."
   (interactive "p")
   (move-to-window-line -1)
-  (if (save-excursion
-       (end-of-line)
-       (and (pos-visible-in-window-p)  ;Not continuation line.
-            (>= (1+ (point)) (point-max)))) ;Allow for trailing newline.
+  (if (and (not gnus-article-over-scroll)
+          (save-excursion
+            (end-of-line)
+            (and (pos-visible-in-window-p)     ;Not continuation line.
+                 (>= (1+ (point)) (point-max))))) ;Allow for trailing newline.
       ;; Nothing in this page.
       (if (or (not gnus-page-broken)
              (save-excursion