procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Respect directory a user enters (bug#28299)

Browse source 
* lisp/gnus/mm-decode.el (mm-save-part):
Respect directory a user enters (bug#28299).
This commit is contained in:
Katsumi Yamaoka 2017-08-31 00:45:54 +00:00
parent cda26e6462
commit a4f6b1097f
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/gnus/mm-decode.el
View file

@ -1363,7 +1363,7 @@ PROMPT overrides the default one used to ask user for a file name."
(mm-handle-disposition handle) 'filename)
(mail-content-type-get
(mm-handle-type handle) 'name)))
file)
file directory)
(when filename
(setq filename (gnus-map-function mm-file-name-rewrite-functions
(file-name-nondirectory filename))))
@ -1372,16 +1372,20 @@ PROMPT overrides the default one used to ask user for a file name."
(setq file
(read-file-name
(or prompt
(format "Save MIME part to (default %s): "
(or filename "")))
(or mm-default-directory default-directory)
(expand-file-name (or filename "")
(or mm-default-directory default-directory))))
(format "Save MIME part to%s: "
(if filename
(format " (default %s)" filename)
"")))
(or directory mm-default-directory default-directory)
(expand-file-name
(or filename "")
(or directory mm-default-directory default-directory))))
(cond ((or (not file) (equal file ""))
(message "Please enter a file name")
t)
((and (file-directory-p file)
(not filename))
(setq directory file)
(message "Please enter a non-directory file name")
t)
(t nil)))