From 6043ce1dc651a09bd21b1f0509c31ca299bb8675 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 8 Jun 2000 22:22:03 +0000 Subject: [PATCH] Sync with Gnus. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-demon.el | 3 ++- lisp/message.el | 3 ++- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8edc3f8..2bacaa4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2000-06-08 12:34:26 Urban Engberg + + * gnus-demon.el (gnus-demon-scan-mail): Bind nnmail-fetched-sources. + +2000-06-08 12:27:55 Shenghuo ZHU + + * message.el (message-syntax-checks): Add type. + 2000-06-07 Dave Love * 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 --- 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 --- 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 -- 1.7.10.4