# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 1014127404 0
# Node ID a949c187ce13bba999c298eab5feee419ed1d7cd
# Parent  33c54ecf66028d94483b59b106b2a3a65447cebc
	* mail-source.el (mail-source-fetch-directory): Run scripts.

diff -r 33c54ecf6602 -r a949c187ce13 lisp/gnus/ChangeLog
--- 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.
diff -r 33c54ecf6602 -r a949c187ce13 lisp/gnus/mail-source.el
--- 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)