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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bede342..c12e9db 100644 (file)
--- 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 5ef5883..4063044 100644 (file)
--- 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)