From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 11 Apr 2018 22:27:10 +0000 (+0200)
Subject: Tweak previous patch to respect quiet next group selection again
X-Git-Tag: emacs-27.0.90~5295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=caf88962160e82b7d19cb8bbe9985f77e214b9c6;p=emacs.git

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

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 64b8904ff5e..e3cc1928d57 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)