demon scan mail.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0894672..2bacaa4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-06-08 12:34:26  Urban Engberg <ue@ccieurope.com>
+
+       * gnus-demon.el (gnus-demon-scan-mail): Bind nnmail-fetched-sources.
+
 2000-06-08 12:27:55  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-syntax-checks): Add type.

diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el
index e3704d0..75b8765 100644 (file)
--- a/lisp/gnus-demon.el
+++ b/lisp/gnus-demon.el
@@ -272,7 +272,8 @@ minutes, the connection is closed."
 (defun gnus-demon-scan-mail ()
   (save-window-excursion
     (let ((servers gnus-opened-servers)
-         server)
+         server
+         (nnmail-fetched-sources (list t)))
       (while (setq server (car (pop servers)))
        (and (gnus-check-backend-function 'request-scan (car server))
             (or (gnus-server-opened server)