mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Allow controlling whether SPC in Gnus goes to the next article

Browse Source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2020-11-24 09:27:14 +01:00
parent 71916f0758
commit 329feffc68
3 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
doc/misc/gnus.texi
View File

@ -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

6
etc/NEWS
View File

@ -481,6 +481,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

15
lisp/gnus/gnus-sum.el
View File

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