[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9fc67ae 1/6: Give a slight better error message in
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 9fc67ae 1/6: Give a slight better error message in mml-minibuffer-read-file |
Date: |
Thu, 26 Jan 2017 18:46:31 +0000 (UTC) |
branch: master
commit 9fc67ae2dd49ab574d4858496c33fdd6c00f9c9b
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 df541fb..19c19de 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)
- [Emacs-diffs] master updated (cf60608 -> aeecbc0), Lars Ingebrigtsen, 2017/01/26
- [Emacs-diffs] master aeecbc0 6/6: Fix typo in last checkin, Lars Ingebrigtsen, 2017/01/26
- [Emacs-diffs] master 079b6be 3/6: Gnus doc clarification, Lars Ingebrigtsen, 2017/01/26
- [Emacs-diffs] master a1cb68b 5/6: Document nnimap-shell-program, Lars Ingebrigtsen, 2017/01/26
- [Emacs-diffs] master d47dadd 2/6: Fix the previous mml patch better, Lars Ingebrigtsen, 2017/01/26
- [Emacs-diffs] master d32623f 4/6: Document :shell-command in `make-network-process', Lars Ingebrigtsen, 2017/01/26
- [Emacs-diffs] master 9fc67ae 1/6: Give a slight better error message in mml-minibuffer-read-file,
Lars Ingebrigtsen <=