Function: mail-source-fetch-file

mail-source-fetch-file is a byte-compiled function defined in mail-source.el.gz.

Signature

(mail-source-fetch-file SOURCE CALLBACK)

Documentation

Fetcher for single-file sources.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mail-source.el.gz
;;;
;;; Different fetchers
;;;

(defun mail-source-fetch-file (source callback)
  "Fetcher for single-file sources."
  (mail-source-bind (file source)
    (mail-source-run-script
     prescript `((?t . ,mail-source-crash-box))
     prescript-delay)
    (let ((mail-source-string (format "file:%s" path)))
      (if (mail-source-movemail path mail-source-crash-box)
	  (prog1
	      (mail-source-callback callback path)
	    (mail-source-run-script
             postscript `((?t . ,mail-source-crash-box)))
	    (mail-source-delete-crash-box))
	0))))