/[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.10 by zsh, Tue Feb 19 14:03:24 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 291  Common keywords should be listed here.") Line 291  Common keywords should be listed here.")
291         (:password)         (:password)
292         (:authentication password))         (:authentication password))
293        (maildir        (maildir
294           (:prescript)
295           (:prescript-delay)
296           (:postscript)
297         (:path (or (getenv "MAILDIR") "~/Maildir/"))         (:path (or (getenv "MAILDIR") "~/Maildir/"))
298         (:subdirs ("new" "cur"))         (:subdirs ("new" "cur"))
299         (:function))         (:function))
# 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.10

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