Merge pull request #852 from jschwab/improve-action-show-thread

mu4e: Improve behavior of mu4e-action-show-thread
This commit is contained in:
Dirk-Jan C. Binnema
2016-06-11 09:54:08 +03:00
committed by GitHub

View File

@ -299,13 +299,17 @@ store your org-contacts."
(defun mu4e-action-show-thread (msg) (defun mu4e-action-show-thread (msg)
"Show all messages that are in the same thread as the message "Show all messages that are in the same thread as the message
at point." at point. Point remains on the message with the message-id where
the action was invoked. If invoked in view-mode, continue to
display the message."
(let ((msgid (mu4e-message-field msg :message-id))) (let ((msgid (mu4e-message-field msg :message-id)))
(when msgid (when msgid
(let ((mu4e-headers-show-threads t) (let ((mu4e-headers-show-threads t)
(mu4e-headers-include-related t)) (mu4e-headers-include-related t))
(mu4e-headers-search (mu4e-headers-search
(format "msgid:%s" msgid)))))) (format "msgid:%s" msgid)
nil nil nil
msgid (eq major-mode 'mu4e-view-mode))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;