Commit 35037882 authored by ShengHuo ZHU's avatar ShengHuo ZHU
Browse files

* mail-source.el (mail-source-fetch-directory): Run scripts.

parent 5be28abc
......@@ -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.
......
;;; 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 @@ Common keywords should be listed here.")
(:password)
(:authentication password))
(maildir
(:prescript)
(:prescript-delay)
(:postscript)
(:path (or (getenv "MAILDIR") "~/Maildir/"))
(:subdirs ("new" "cur"))
(:function))
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment