From 2181495af8f47057a7a61e01c192416b9ca70988 Mon Sep 17 00:00:00 2001 From: Mike Kupfer Date: Sun, 17 Jul 2022 11:49:56 -0700 Subject: [PATCH] Fix the prompt for mh-mime-save-parts (SF#500) * mh-mime.el (mh-mime-save-parts): Use the default argument to read-directory-name; don't use format-prompt. --- lisp/mh-e/mh-mime.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index 5eada03ba46..865f817da5b 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -379,10 +379,8 @@ do the work." ((and (or prompt (equal t mh-mime-save-parts-default-directory)) mh-mime-save-parts-directory) - (read-directory-name (format-prompt - "Store in directory" - mh-mime-save-parts-directory) - "" mh-mime-save-parts-directory t "")) + (read-directory-name "Store in directory: " + mh-mime-save-parts-directory nil t)) ((stringp mh-mime-save-parts-default-directory) mh-mime-save-parts-default-directory) (t -- 2.39.5