Sync

with Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8edc3f8..2bacaa4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+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.
+
 2000-06-07  Dave Love  <fx@gnu.org>
 
        * mm-view.el (mm-inline-image-emacs): Don't specify string for

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)

diff --git a/lisp/message.el b/lisp/message.el
index a4281b4..443d2b4 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -203,7 +203,8 @@ long-lines control-chars size new-text redirected-followup signature
 approved sender empty empty-headers message-id from subject
 shorten-followup-to existing-newsgroups buffer-file-name unchanged
 newsgroups."
-  :group 'message-news)
+  :group 'message-news
+  :type '(repeat sexp))
 
 (defcustom message-required-news-headers
   '(From Newsgroups Subject Date Message-ID