Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix the prompt for mh-mime-save-parts (SF#500)

Browse source 
* mh-mime.el (mh-mime-save-parts): Use the default argument to
read-directory-name; don't use format-prompt.
This commit is contained in:
Mike Kupfer 2022-07-17 11:49:56 -07:00
parent bb0af6489a
commit 2181495af8
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mh-e/mh-mime.el
View file

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