diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-26 19:09:58 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-26 19:46:27 +0100 |
| commit | d47dadd1687e37e9d399a8b22edf11dd3f1c3f29 (patch) | |
| tree | ba5cb1ba41d1e9c1926fb016963de93f29f7452a /lisp/gnus/mml.el | |
| parent | 9fc67ae2dd49ab574d4858496c33fdd6c00f9c9b (diff) | |
| download | emacs-d47dadd1687e37e9d399a8b22edf11dd3f1c3f29.tar.gz | |
Fix the previous mml patch better
* lisp/gnus/mml.el (mml-minibuffer-read-file): Fix the
previous patch in a better way (bug#20480).
Diffstat (limited to 'lisp/gnus/mml.el')
| -rw-r--r-- | lisp/gnus/mml.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 19c19decedd..a4a47f929f4 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -1249,13 +1249,12 @@ If not set, `default-directory' will be used." (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) - "" t))) + nil t))) ;; Prevent some common errors. This is inspired by similar code in ;; VM. - (when (zerop (length file)) - (error "No file name entered")) (when (file-directory-p file) (error "%s is a directory, cannot attach" file)) (unless (file-exists-p file) |