From b9e32950312bd594d63c63944a75d220a4aca2f2 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 2 Oct 2010 00:08:35 +0200 Subject: [PATCH] (gnus-check-bogus-newsgroups): Say how many groups we're being queried about. Suggested by Dan Jacobson. --- lisp/ChangeLog | 3 +++ lisp/gnus-start.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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. -- 2.25.1