diff options
| author | Mike Kupfer <mkupfer@alum.berkeley.edu> | 2022-07-17 11:49:56 -0700 |
|---|---|---|
| committer | Mike Kupfer <mkupfer@alum.berkeley.edu> | 2022-07-24 11:30:12 -0700 |
| commit | 2181495af8f47057a7a61e01c192416b9ca70988 (patch) | |
| tree | 0f14957da61331a0fea0fdc27e679a9737c87ef9 /lisp/mh-e | |
| parent | bb0af6489a1ca0104636fe2d658916e8c5b54dfc (diff) | |
| download | emacs-2181495af8f47057a7a61e01c192416b9ca70988.tar.gz emacs-2181495af8f47057a7a61e01c192416b9ca70988.tar.bz2 emacs-2181495af8f47057a7a61e01c192416b9ca70988.zip | |
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.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-mime.el | 6 |
1 files 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 |