mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

Tweak previous patch to respect quiet next group selection again

Browse source 
* lisp/gnus/gnus-sum.el (gnus-summary-next-article): Tweak
previous patch to be quieter if the user has requested `quietly'
next group selection.
This commit is contained in:
Lars Ingebrigtsen 2018-04-12 00:27:10 +02:00
parent 472d301fa4
commit caf8896216
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/gnus-sum.el
View file

@ -7802,7 +7802,8 @@ If BACKWARD, the previous article is selected instead of the next."
(cond
((or (not gnus-auto-select-next)
(not cmd))
(gnus-message 6 "No more%s articles" (if unread " unread" "")))
(unless (eq gnus-auto-select-next 'quietly)
(gnus-message 6 "No more%s articles" (if unread " unread" ""))))
((or (eq gnus-auto-select-next 'quietly)
(and (eq gnus-auto-select-next 'slightly-quietly)
push)
@ -7811,10 +7812,11 @@ If BACKWARD, the previous article is selected instead of the next."
;; Select quietly.
(if (gnus-ephemeral-group-p gnus-newsgroup-name)
(gnus-summary-exit)
(gnus-message 6 "No more%s articles (%s)..."
(if unread " unread" "")
(if group (concat "selecting " group)
"exiting"))
(unless (eq gnus-auto-select-next 'quietly)
(gnus-message 6 "No more%s articles (%s)..."
(if unread " unread" "")
(if group (concat "selecting " group)
"exiting")))
(gnus-summary-next-group nil group backward)))
(t
(when (numberp last-input-event)