master 329feff: Allow controlling whether SPC in Gnus goes to the next article

[Lars Ingebrigtsen]

branch: master
commit 329feffc68238e293854ca2183801056bdd8a6ff
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Allow controlling whether SPC in Gnus goes to the next article
    
    * doc/misc/gnus.texi (Summary Maneuvering): Document it.
    * lisp/gnus/gnus-sum.el (gnus-paging-select-next): New variable.
    (gnus-summary-prev-page, gnus-summary-next-page): Use it.
---
 doc/misc/gnus.texi    |  9 +++++++++
 etc/NEWS              |  6 ++++++
 lisp/gnus/gnus-sum.el | 15 +++++++++++++--
 3 files changed, 28 insertions(+), 2 deletions(-)

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 3f59745..81ce139 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -5361,6 +5361,15 @@ articles with the same subject, go to the first unread 
article.
 
 This variable is not particularly useful if you use a threaded display.
 
+@item gnus-paging-select-next
+@vindex gnus-paging-select-next
+Control whether to select the next/previous article when paging (with
+commands like @kbd{SPC} or @kbd{DEL}).  If non-@code{nil}, select the
+next article when reaching the end of the article (or the previous
+article when paging backwards).
+
+If @code{nil}, don't do anything at the end/start of the articles.
+
 @item gnus-summary-check-current
 @vindex gnus-summary-check-current
 If non-@code{nil}, all the ``unread'' movement commands will not proceed
diff --git a/etc/NEWS b/etc/NEWS
index f3a75e4..135452b 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -482,6 +482,12 @@ tags to be considered as well.
 ** Gnus
 
 +++
+*** New user option 'gnus-paging-select-next'.
+This controls what happens when using commands like `SPC' and `DEL' to
+page the current article.  If non-nil (the default), go to the
+next/prev article, but if nil, do nothing at the end/start of the article.
+
++++
 *** New gnus-search library.
 A new unified search syntax which can be used across multiple
 supported search engines.  Set 'gnus-search-use-parsed-queries' to
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 561f199..7444cab 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -442,6 +442,15 @@ will go to the next group without confirmation."
                 (const slightly-quietly)
                 (sexp :menu-tag "on" t)))
 
+(defcustom gnus-paging-select-next t
+  "Control whether to select the next/prev article when paging.
+If non-nil, select the next article when reaching the end of the
+article (or the previous article when paging backwards).
+
+If nil, don't do anything at the end/start of the articles."
+  :group 'gnus-summary-maneuvering
+  :type 'boolean)
+
 (defcustom gnus-auto-select-same nil
   "If non-nil, select the next article with the same subject.
 If there are no more articles with the same subject, go to
@@ -7898,7 +7907,8 @@ Also see the variable `gnus-article-skip-boring'."
                   (gnus-message 3 "End of message"))
                  (circular
                   (gnus-summary-beginning-of-article))
-                 (lines
+                 ((or lines
+                      (not gnus-paging-select-next))
                   (gnus-message 3 "End of message"))
                  ((null lines)
                   (if (and (eq gnus-summary-goto-unread 'never)
@@ -7929,7 +7939,8 @@ the beginning of the buffer."
        (gnus-eval-in-buffer-window gnus-article-buffer
          (setq endp (gnus-article-prev-page lines)))
        (when (and move endp)
-         (cond (lines
+         (cond ((or lines
+                    (not gnus-paging-select-next))
                 (gnus-message 3 "Beginning of message"))
                ((null lines)
                 (if (and (eq gnus-summary-goto-unread 'never)