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

Try not to move, when executing marks

Browse Source
This commit is contained in:
sabof
2014-02-06 01:55:28 +00:00
parent 35a40bc3fb
commit 204b09dde3
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-headers.el
View File

@ -269,7 +269,9 @@ headers."
(when (buffer-live-p mu4e~headers-buffer) (when (buffer-live-p mu4e~headers-buffer)
(with-current-buffer mu4e~headers-buffer (with-current-buffer mu4e~headers-buffer
(let* ((docid (mu4e-message-field msg :docid)) (let* ((docid (mu4e-message-field msg :docid))
(point (mu4e~headers-docid-pos docid))) (initial-message-at-point (mu4e~headers-docid-at-point))
(initial-column (current-column))
(point (mu4e~headers-docid-pos docid)))
(when point ;; is the message present in this list? (when point ;; is the message present in this list?
;; if it's marked, unmark it now ;; if it's marked, unmark it now
@ -304,8 +306,14 @@ headers."
(unless is-move (unless is-move
(mu4e~headers-header-handler msg point)) (mu4e~headers-header-handler msg point))
;; attempt to highlight the corresponding line and make it visible (if (and initial-message-at-point
(mu4e~headers-highlight docid)))))) (mu4e~headers-goto-docid initial-message-at-point))
(progn
(move-to-column initial-column)
(mu4e~headers-highlight initial-message-at-point))
;; attempt to highlight the corresponding line and make it visible
(mu4e~headers-highlight docid))
)))))
(defun mu4e~headers-remove-handler (docid) (defun mu4e~headers-remove-handler (docid)