--- a/lisp/gnus/gnus-int.el	Mon Aug 13 08:54:26 2007 +0200
+++ b/lisp/gnus/gnus-int.el	Mon Aug 13 08:54:51 2007 +0200
@@ -331,7 +331,8 @@
 (defun gnus-request-scan (group method)
   "Request a SCAN being performed in GROUP from METHOD.
 If GROUP is nil, all groups on METHOD are scanned."
-  (let ((method (if group (gnus-find-method-for-group group) method)))
+  (let ((method (if group (gnus-find-method-for-group group) method))
+	(gnus-inhibit-demon t))
     (funcall (gnus-get-function method 'request-scan)
 	     (and group (gnus-group-real-name group)) (nth 1 method))))
 
@@ -410,6 +411,7 @@
 (defun gnus-close-backends ()
   ;; Send a close request to all backends that support such a request.
   (let ((methods gnus-valid-select-methods)
+	(gnus-inhibit-demon t)
 	func method)
     (while (setq method (pop methods))
       (when (fboundp (setq func (intern