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

* mu4e: better error when entering invalid attachment number

Browse Source
This commit is contained in:
djcb
2012-09-03 00:35:39 +03:00
parent 9379071b8d
commit 804f2b5cd5
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-view.el
View File

@ -888,11 +888,13 @@ all messages in the thread at point in the headers view."
(defun mu4e~view-get-attach (msg attnum) (defun mu4e~view-get-attach (msg attnum)
"Return the attachment plist in MSG corresponding to attachment "Return the attachment plist in MSG corresponding to attachment
number ATTNUM." number ATTNUM."
(let ((partid (gethash attnum mu4e~view-attach-map))) (let* ((partid (gethash attnum mu4e~view-attach-map))
(find-if (attach
(lambda (part) (find-if
(eq (plist-get part :index) partid)) (lambda (part)
(plist-get msg :parts)))) (eq (plist-get part :index) partid))
(plist-get msg :parts))))
(or attach (mu4e-error "Not a valid attachment"))))
(defun mu4e-view-save-attachment-single (&optional msg attnum) (defun mu4e-view-save-attachment-single (&optional msg attnum)
@ -951,7 +953,7 @@ message-at-point if nil)."
(let* ((msg (or msg (mu4e-message-at-point))) (let* ((msg (or msg (mu4e-message-at-point)))
(attnum (or attnum (attnum (or attnum
(mu4e~view-get-attach-num "Attachment to open" msg))) (mu4e~view-get-attach-num "Attachment to open" msg)))
(att (mu4e~view-get-attach msg attnum)) (att (or (mu4e~view-get-attach msg attnum)))
(index (plist-get att :index))) (index (plist-get att :index)))
(mu4e~proc-extract 'open (plist-get msg :docid) index))) (mu4e~proc-extract 'open (plist-get msg :docid) index)))