From: Mike Kupfer <mkupfer@alum.berkeley.edu>
Date: Sun, 17 Jul 2022 18:49:56 +0000 (-0700)
Subject: Fix the prompt for mh-mime-save-parts (SF#500)
X-Git-Tag: emacs-29.0.90~1447^2~764
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2181495af8f47057a7a61e01c192416b9ca70988;p=emacs.git

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.
---

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