From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Fri, 1 Oct 2010 22:08:35 +0000 (+0200)
Subject: (gnus-check-bogus-newsgroups): Say how many groups we're being queried about.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=b9e32950312bd594d63c63944a75d220a4aca2f2;p=gnus

(gnus-check-bogus-newsgroups): Say how many groups we're being queried about.

Suggested by Dan Jacobson.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 837845c2d..6b5433b0e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-start.el (gnus-check-bogus-newsgroups): Say how many groups
+	we're being queried about.  Suggested by Dan Jacobson.
+
 	* nndoc.el (nndoc-type-alist): Do babyl before mime-parts.  Suggested
 	by Jason Eisner.
 
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 68f26ea14..e5a3ec773 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1465,7 +1465,7 @@ newsgroup."
 	  (push group bogus)))
       (if confirm
 	  (map-y-or-n-p
-	   "Remove bogus group %s? "
+	   (format "Remove bogus group %%s (of %d groups)? " (length bogus))
 	   (lambda (group)
 	     ;; Remove all bogus subscribed groups by first killing them, and
 	     ;; then removing them from the list of killed groups.