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

18
emacs/mu4e-view.el
View File

@ -39,7 +39,7 @@
(eval-when-compile (byte-compile-disable-warning 'cl-functions)) (eval-when-compile (byte-compile-disable-warning 'cl-functions))
(require 'cl) (require 'cl)
;; the message view ;; the message view
(defgroup mu4e-view nil (defgroup mu4e-view nil
"Settings for the message view." "Settings for the message view."
@ -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
@ -695,7 +699,7 @@ citations."
(setq (setq
mu4e~view-lines-wrapped nil mu4e~view-lines-wrapped nil
mu4e~view-cited-hidden nil)) mu4e~view-cited-hidden nil))
(defun mu4e-view-action (&optional msg) (defun mu4e-view-action (&optional msg)
"Ask user for some action to apply on MSG (or message-at-point, "Ask user for some action to apply on MSG (or message-at-point,
if nil), then do it. The actions are specified in if nil), then do it. The actions are specified in
@ -981,7 +985,7 @@ user that unmarking only works in the header list."
(let ((url (gethash num mu4e~view-link-map))) (let ((url (gethash num mu4e~view-link-map)))
(unless url (error "Invalid number for URL")) (unless url (error "Invalid number for URL"))
(browse-url url))) (browse-url url)))
(defconst mu4e~view-raw-buffer-name "*mu4e-raw-view*" (defconst mu4e~view-raw-buffer-name "*mu4e-raw-view*"
"*internal* Name for the raw message view buffer") "*internal* Name for the raw message view buffer")