From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Wed, 22 Sep 2010 16:42:57 +0000 (+0200)
Subject: Inhibit the daemon, since this command might take a while.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=659c336e8a5ea4669f820533232faa9d9f4a462d;p=gnus

Inhibit the daemon, since this command might take a while.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bede342b1..c12e9dba3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-int.el (gnus-request-expire-articles): Inhibit the daemon, since
+	this command might take a while.
+
 2010-09-22  Julien Danjou  <julien@danjou.info>
 
 	* gnus-html.el (gnus-html-rescale-image): Use window-inside-pixel-edges
diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 5ef58834d..406304490 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -601,6 +601,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
 
 (defun gnus-request-expire-articles (articles group &optional force)
   (let* ((gnus-command-method (gnus-find-method-for-group group))
+	 (gnus-inhibit-demon t)
 	 (not-deleted
 	  (funcall
 	   (gnus-get-function gnus-command-method 'request-expire-articles)