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

* cosmetics

Browse Source
This commit is contained in:
djcb
2013-12-18 23:51:12 -08:00
parent f859c443cc
commit f79170ac6c
1 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
mu4e/mu4e-view.el
View File

@ -889,6 +889,16 @@ number ATTNUM."
(or attach (mu4e-error "Not a valid attachment")))) (or attach (mu4e-error "Not a valid attachment"))))
(defun mu4e~view-request-attachment-path (fname path)
"Ask the user where to save FNAME (default is PATH/FNAME)."
(let ((fpath (expand-file-name
(read-file-name
(mu4e-format "Save as ")
path nil nil fname) path)))
(if (file-directory-p fpath)
(expand-file-name fname fpath)
fpath)))
(defun mu4e-view-save-attachment-single (&optional msg attnum) (defun mu4e-view-save-attachment-single (&optional msg attnum)
"Save attachment number ATTNUM from MSG. "Save attachment number ATTNUM from MSG.
If MSG is nil use the message returned by `message-at-point'. If MSG is nil use the message returned by `message-at-point'.
@ -905,26 +915,13 @@ If ATTNUM is nil ask for the attachment number."
(index (plist-get att :index)) (index (plist-get att :index))
(retry t) (fpath)) (retry t) (fpath))
(while retry (while retry
(setq fpath (mu4e-view-request-attachment-path fname path)) (setq fpath (mu4e~view-request-attachment-path fname path))
(setq retry (setq retry
(and (file-exists-p fpath) (and (file-exists-p fpath)
(not (y-or-n-p (mu4e-format "Overwrite '%s'?" fpath)))))) (not (y-or-n-p (mu4e-format "Overwrite '%s'?" fpath))))))
(mu4e~proc-extract (mu4e~proc-extract
'save (mu4e-message-field msg :docid) index fpath))) 'save (mu4e-message-field msg :docid) index fpath)))
(defun mu4e-view-request-attachment-path (fname path)
"Ask the user where to save FNAME (default is PATH/FNAME)."
(let ((fpath (expand-file-name
(read-file-name
(mu4e-format "Save as ")
path
nil
nil
fname)
path)))
(if (file-directory-p fpath)
(expand-file-name fname fpath)
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.