alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
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)) (index (plist-get att :index))
(retry t)) (retry t))
(while retry (while retry
(setq path (expand-file-name (setq fpath (expand-file-name
(read-directory-name (read-directory-name
(mu4e-format "Save as ") path nil nil fname))) (mu4e-format "Save as ") path nil nil fname)))
(setq retry (setq retry
(and (file-exists-p path) (and (file-exists-p fpath)
(not (y-or-n-p (mu4e-format "Overwrite '%s'?" path)))))) (not (y-or-n-p (mu4e-format "Overwrite '%s'?" fpath))))))
(mu4e~proc-extract (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) (defun mu4e-view-save-attachment-multi (&optional msg)
"Offer to save multiple email attachments from the current message. "Offer to save multiple email attachments from the current message.