Function: mml-minibuffer-read-file

mml-minibuffer-read-file is a byte-compiled function defined in mml.el.gz.

Signature

(mml-minibuffer-read-file PROMPT)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml.el.gz
(defun mml-minibuffer-read-file (prompt)
  (let* ((completion-ignored-extensions nil)
	 (buffer-file-name nil)
	 (file (read-file-name prompt
			       (or mml-default-directory default-directory)
			       nil t)))
    ;; Prevent some common errors.  This is inspired by similar code in
    ;; VM.
    (when (file-directory-p file)
      (error "%s is a directory, cannot attach" file))
    (unless (file-exists-p file)
      (error "No such file: %s" file))
    (unless (file-readable-p file)
      (error "Permission denied: %s" file))
    file))