* mail-source.el (defvar): Add post/pre/scripts.

	(mail-source-fetch-imap): Use them.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b702f1e..dd30724 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-10-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mail-source.el (defvar): Add post/pre/scripts.
+       (mail-source-fetch-imap): Use them.
+
        * nndraft.el (nndraft-request-move-article): Fix infinite
        recursion. 
 

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 19fdf51..c262d2d 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -357,6 +357,9 @@ Common keywords should be listed here.")
        (:mailbox "INBOX")
        (:predicate "UNSEEN UNDELETED")
        (:fetchflag "\\Deleted")
+       (:prescript)
+       (:prescript-delay)
+       (:postscript)
        (:dontexpunge))
       (webmail
        (:subtype hotmail)
@@ -966,6 +969,10 @@ This only works when `display-time' is enabled."
 (defun mail-source-fetch-imap (source callback)
   "Fetcher for imap sources."
   (mail-source-bind (imap source)
+    (mail-source-run-script
+     prescript (format-spec-make ?p password ?t mail-source-crash-box
+                                ?s server ?P port ?u user)
+     prescript-delay)
     (let ((from (format "%s:%s:%s" server user port))
          (found 0)
          (buf (generate-new-buffer " *imap source*"))
@@ -1021,6 +1028,10 @@ This only works when `display-time' is enabled."
                    mail-source-password-cache))
        (error "IMAP error: %s" (imap-error-text buf)))
       (kill-buffer buf)
+      (mail-source-run-script
+       postscript
+       (format-spec-make ?p password ?t mail-source-crash-box
+                        ?s server ?P port ?u user))))
       found)))
 
 (eval-and-compile