master 2181495af8 2/2: Fix the prompt for mh-mime-save-parts (SF#500)

[Mike Kupfer]

branch: master
commit 2181495af8f47057a7a61e01c192416b9ca70988
Author: Mike Kupfer <mkupfer@alum.berkeley.edu>
Commit: Mike Kupfer <mkupfer@alum.berkeley.edu>

    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 5eada03ba4..865f817da5 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