(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 837845c..6b5433b 100644 (file)
--- 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 68f26ea..e5a3ec7 100644 (file)
--- 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.