/[emacs]/emacs/lisp/gnus/mail-source.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mail-source.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pj, Sun Jul 15 17:42:53 2001 UTC revision 1.9.4.1 by zsh, Tue Feb 19 14:06:23 2002 UTC
# Line 1  Line 1 
1  ;;; mail-source.el --- functions for fetching mail  ;;; mail-source.el --- functions for fetching mail
2  ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.  ;; Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
3    
4  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
5  ;; Keywords: news, mail  ;; Keywords: news, mail
# Line 276  Common keywords should be listed here.") Line 276  Common keywords should be listed here.")
276         (:path (or (getenv "MAIL")         (:path (or (getenv "MAIL")
277                    (expand-file-name (user-login-name) rmail-spool-directory))))                    (expand-file-name (user-login-name) rmail-spool-directory))))
278        (directory        (directory
279           (:prescript)
280           (:prescript-delay)
281           (:postscript)
282         (:path)         (:path)
283         (:suffix ".spool")         (:suffix ".spool")
284         (:predicate identity))         (:predicate identity))
# Line 609  If ARGS, PROMPT is used as an argument t Line 612  If ARGS, PROMPT is used as an argument t
612  (defun mail-source-fetch-directory (source callback)  (defun mail-source-fetch-directory (source callback)
613    "Fetcher for directory sources."    "Fetcher for directory sources."
614    (mail-source-bind (directory source)    (mail-source-bind (directory source)
615        (mail-source-run-script
616         prescript (format-spec-make ?t path)
617         prescript-delay)
618      (let ((found 0)      (let ((found 0)
619            (mail-source-string (format "directory:%s" path)))            (mail-source-string (format "directory:%s" path)))
620        (dolist (file (directory-files        (dolist (file (directory-files
# Line 617  If ARGS, PROMPT is used as an argument t Line 623  If ARGS, PROMPT is used as an argument t
623                     (funcall predicate file)                     (funcall predicate file)
624                     (mail-source-movemail file mail-source-crash-box))                     (mail-source-movemail file mail-source-crash-box))
625            (incf found (mail-source-callback callback file))))            (incf found (mail-source-callback callback file))))
626          (mail-source-run-script
627           postscript (format-spec-make ?t path))
628        found)))        found)))
629    
630  (defun mail-source-fetch-pop (source callback)  (defun mail-source-fetch-pop (source callback)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26