[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mail-source.el
From: |
ShengHuo ZHU |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mail-source.el |
Date: |
Tue, 19 Feb 2002 09:06:24 -0500 |
Index: emacs/lisp/gnus/mail-source.el
diff -c emacs/lisp/gnus/mail-source.el:1.9 emacs/lisp/gnus/mail-source.el:1.10
*** emacs/lisp/gnus/mail-source.el:1.9 Sun Jul 15 13:42:53 2001
--- emacs/lisp/gnus/mail-source.el Tue Feb 19 09:03:24 2002
***************
*** 1,5 ****
;;; mail-source.el --- functions for fetching mail
! ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
;; Keywords: news, mail
--- 1,5 ----
;;; mail-source.el --- functions for fetching mail
! ;; Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
;; Keywords: news, mail
***************
*** 291,296 ****
--- 291,299 ----
(:password)
(:authentication password))
(maildir
+ (:prescript)
+ (:prescript-delay)
+ (:postscript)
(:path (or (getenv "MAILDIR") "~/Maildir/"))
(:subdirs ("new" "cur"))
(:function))
***************
*** 609,614 ****
--- 612,620 ----
(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,622 ****
--- 623,630 ----
(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)