procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Give a slight better error message in mml-minibuffer-read-file

Browse source 
* lisp/gnus/mml.el (mml-minibuffer-read-file): Give a slightly
better error message when the user enters nothing (bug#20480).
This commit is contained in:
Lars Ingebrigtsen 2017-01-26 19:07:00 +01:00
parent cf60608803
commit 9fc67ae2dd
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/mml.el
View file

@ -1251,9 +1251,11 @@ If not set, `default-directory' will be used."
(let* ((completion-ignored-extensions nil)
(file (read-file-name prompt
(or mml-default-directory default-directory)
nil t)))
"" 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)