From 9fc67ae2dd49ab574d4858496c33fdd6c00f9c9b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 26 Jan 2017 19:07:00 +0100 Subject: [PATCH] Give a slight better error message in mml-minibuffer-read-file * lisp/gnus/mml.el (mml-minibuffer-read-file): Give a slightly better error message when the user enters nothing (bug#20480). --- lisp/gnus/mml.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index df541fbcccd..19c19decedd 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -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) -- 2.39.5