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

* mu4e-view.el: make sure we're applying marks to the messages where

Browse Source 
viewing (while in view mode)
This commit is contained in:
djcb
2012-06-12 20:58:32 +03:00
parent 9133750d24
commit 9b579e0265
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
emacs/mu4e-view.el
View File

@ -642,13 +642,17 @@ number them so they can be opened using `mu4e-view-go-to-url'."
(defmacro mu4e~view-in-headers-context (&rest body) (defmacro mu4e~view-in-headers-context (&rest body)
"Evaluate BODY in the current headers buffer." "Evaluate BODY in the current headers buffer, with moved to the
current message."
`(progn `(progn
(unless '(buffer-live-p mu4e~view-headers-buffer) (unless '(buffer-live-p mu4e~view-headers-buffer)
(error "no headers buffer available.")) (error "no headers buffer available."))
(with-current-buffer mu4e~view-headers-buffer (let* ((docid (mu4e-field-at-point :docid)))
,@body))) (with-current-buffer mu4e~view-headers-buffer
(if (and docid (mu4e~headers-goto-docid docid))
,@body
(error "Cannot find corresponding message in headers
buffer."))))))
(defun mu4e-view-headers-next(&optional n) (defun mu4e-view-headers-next(&optional n)
"Move point to the next message header in the headers buffer "Move point to the next message header in the headers buffer