Mercurial > emacs
changeset 43421:a949c187ce13
* mail-source.el (mail-source-fetch-directory): Run scripts.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Tue, 19 Feb 2002 14:03:24 +0000 |
| parents | 33c54ecf6602 |
| children | fa370bd262ee |
| files | lisp/gnus/ChangeLog lisp/gnus/mail-source.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Feb 19 13:30:08 2002 +0000 +++ b/lisp/gnus/ChangeLog Tue Feb 19 14:03:24 2002 +0000 @@ -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 <zsh@cs.rochester.edu> * gnus-msg.el (gnus-post-method): Fix doc.
--- a/lisp/gnus/mail-source.el Tue Feb 19 13:30:08 2002 +0000 +++ b/lisp/gnus/mail-source.el Tue Feb 19 14:03:24 2002 +0000 @@ -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 <larsi@gnus.org> ;; Keywords: news, mail @@ -291,6 +291,9 @@ (:password) (:authentication password)) (maildir + (:prescript) + (:prescript-delay) + (:postscript) (:path (or (getenv "MAILDIR") "~/Maildir/")) (:subdirs ("new" "cur")) (:function)) @@ -609,6 +612,9 @@ (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 @@ (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)