emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e: don't append to attachment name when retryiing

This commit is contained in:
djcb 2013-10-12 14:12:13 +03:00
parent b0d7d70938
commit 5634722129
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-view.el
View File

@ -940,14 +940,14 @@ If ATTNUM is nil ask for the attachment number."
(index (plist-get att :index))
(retry t))
(while retry
(setq path (expand-file-name
(setq fpath (expand-file-name
(read-directory-name
(mu4e-format "Save as ") path nil nil fname)))
(setq retry
(and (file-exists-p path)
(not (y-or-n-p (mu4e-format "Overwrite '%s'?" path))))))
(and (file-exists-p fpath)
(not (y-or-n-p (mu4e-format "Overwrite '%s'?" fpath))))))
(mu4e~proc-extract
'save (mu4e-message-field msg :docid) index path)))
'save (mu4e-message-field msg :docid) index fpath)))
(defun mu4e-view-save-attachment-multi (&optional msg)
"Offer to save multiple email attachments from the current message.