From d61b6b9852fc1565ef3c2747bd02b9b06c6c59b3 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Tue, 19 Feb 2002 14:06:23 +0000 Subject: [PATCH] * mail-source.el (mail-source-fetch-directory): Run scripts. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/mail-source.el | 10 +++++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ef55a50ac08..7288b2f1880 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -3,6 +3,8 @@ * mm-encode.el (mm-content-transfer-encoding-defaults): Set default to base64. Add application/emacs-lisp. + * mail-source.el (mail-source-fetch-directory): Run scripts. + 2002-02-16 ShengHuo ZHU * gnus-msg.el (gnus-post-method): Fix doc. diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index a35e506ba54..959ce9327b3 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -1,5 +1,5 @@ ;;; mail-source.el --- functions for fetching mail -;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail @@ -276,6 +276,9 @@ Common keywords should be listed here.") (:path (or (getenv "MAIL") (expand-file-name (user-login-name) rmail-spool-directory)))) (directory + (:prescript) + (:prescript-delay) + (:postscript) (:path) (:suffix ".spool") (:predicate identity)) @@ -609,6 +612,9 @@ If ARGS, PROMPT is used as an argument to `format'." (defun mail-source-fetch-directory (source callback) "Fetcher for directory sources." (mail-source-bind (directory source) + (mail-source-run-script + prescript (format-spec-make ?t path) + prescript-delay) (let ((found 0) (mail-source-string (format "directory:%s" path))) (dolist (file (directory-files @@ -617,6 +623,8 @@ If ARGS, PROMPT is used as an argument to `format'." (funcall predicate file) (mail-source-movemail file mail-source-crash-box)) (incf found (mail-source-callback callback file)))) + (mail-source-run-script + postscript (format-spec-make ?t path)) found))) (defun mail-source-fetch-pop (source callback) -- 2.39.2