[Emacs-diffs] master caf8896: Tweak previous patch to respect quiet next group selection again

[Lars Ingebrigtsen]

branch: master
commit caf88962160e82b7d19cb8bbe9985f77e214b9c6
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Tweak previous patch to respect quiet next group selection again
    
    * lisp/gnus/gnus-sum.el (gnus-summary-next-article): Tweak
    previous patch to be quieter if the user has requested `quietly'
    next group selection.
---
 lisp/gnus/gnus-sum.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 64b8904..e3cc192 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -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)