From: Ted Zlatanov <tzz@lifelogs.com>
Date: Mon, 7 Jun 2010 16:19:40 +0000 (-0500)
Subject: (gnus-agent-expire-unagentized-dirs): Don't ask about deleting unused directories... 
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=34e5f5af22155735fc7a8dd150deb971b1bc2660

(gnus-agent-expire-unagentized-dirs): Don't ask about deleting unused directories when gnus-expert-user is t.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c612f3ad0..e944d138a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.
+
 2010-06-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-article-browse-delete-temp-files): Don't make query
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 17f1d0cdb..edc4e0f3b 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -3634,7 +3634,8 @@ articles in every agentized group? "))
  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