X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmail-source.el;h=381f21578994b0e166af5e6cb6ec2ba1d5839b35;hb=27824ccae1d8ab356b1e7f226868f22b64765383;hp=53401bc1572fd279dc238e58dcdf8aa4a7429ef5;hpb=4acd890922b58aaf459d74b8927c31fc93b9bca6;p=elisp%2Fgnus.git-

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 53401bc..381f215 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -699,8 +699,7 @@ Pass INFO on to CALLBACK."
   "Fetcher for directory sources."
   (mail-source-bind (directory source)
     (mail-source-run-script
-     prescript (format-spec-make ?t path)
-     prescript-delay)
+     prescript (format-spec-make ?t path) prescript-delay)
     (let ((found 0)
 	  (mail-source-string (format "directory:%s" path)))
       (dolist (file (directory-files
@@ -709,8 +708,7 @@ Pass INFO on to CALLBACK."
 		   (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))
+      (mail-source-run-script postscript (format-spec-make ?t path))
       found)))
 
 (defun mail-source-fetch-pop (source callback)