Mercurial > emacs

diff lisp/gnus/gnus-agent.el @ 108905:68c7ddc1af16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Synch with Gnus trunk. 2010-06-07 Teodor Zlatanov <tzz@lifelogs.com> * gnus.texi (Interactive): Explain effect of gnus-expert-user better. 2010-06-07 Teemu Likonen <tlikonen@iki.fi> (tiny change) * gnus-agent.el (gnus-agent-expire-unagentized-dirs): Don't ask about deleting unused directories when gnus-expert-user is t.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 07 Jun 2010 23:00:42 +0000
parents 0fe940324254
children 8d09094063d0
line wrap: on
line diff
--- a/lisp/gnus/gnus-agent.el	Mon Jun 07 22:49:32 2010 +0000
+++ b/lisp/gnus/gnus-agent.el	Mon Jun 07 23:00:42 2010 +0000
@@ -3634,7 +3634,8 @@
  deleting them?")))
           (while to-remove
             (let ((dir (pop to-remove)))
-              (if (gnus-y-or-n-p (format "Delete %s? " dir))
+              (if (or gnus-expert-user
+		      (gnus-y-or-n-p (format "Delete %s? " dir)))
                   (let* (delete-recursive
 			 files f
                          (delete-recursive