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

* mu4e: mu4e-view set buffer-local vars *before* mark-as-read

Browse Source
This commit is contained in:
djcb
2012-10-29 12:22:07 +02:00
parent ce2452928a
commit 16beb8cd95
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
mu4e/mu4e-view.el
View File

@ -229,15 +229,17 @@ marking if it still had that."
(local-set-key "q" 'kill-buffer-and-window) (local-set-key "q" 'kill-buffer-and-window)
(setq mu4e~view-buffer buf)) (setq mu4e~view-buffer buf))
(setq ;; buffer local
mu4e~view-msg msg
mu4e~view-headers-buffer headersbuf))
(unless (or refresh embedded) (unless (or refresh embedded)
;; no use in trying to set flags again, or when it's an embedded ;; no use in trying to set flags again, or when it's an embedded
;; message ;; message
(mu4e~view-mark-as-read-maybe)) (mu4e~view-mark-as-read-maybe))
(mu4e-view-mode) ;; and switch!
(setq ;; buffer local (mu4e-view-mode))))
mu4e~view-msg msg
mu4e~view-headers-buffer headersbuf)))))
(defun mu4e~view-construct-header (field val &optional dont-propertize-val) (defun mu4e~view-construct-header (field val &optional dont-propertize-val)
@ -667,10 +669,7 @@ at POINT, or if nil, at (point)."
;; turn it off ;; turn it off
(when (boundp 'autopair-dont-activate) (when (boundp 'autopair-dont-activate)
(setq autopair-dont-activate t))) (setq autopair-dont-activate t)))
;; we mark messages are as read when we leave the message; i.e., when skipping
;; to the next/previous one, or leaving the view buffer altogether.
(defun mu4e~view-mark-as-read-maybe () (defun mu4e~view-mark-as-read-maybe ()
"Clear the current message's New/Unread status and set it to "Clear the current message's New/Unread status and set it to
Seen; if the message is not New/Unread, do nothing." Seen; if the message is not New/Unread, do nothing."