From: Mark Walters Date: Sat, 22 Mar 2014 11:51:12 +0000 (+0000) Subject: emacs: tree: use orig-tags in search X-Git-Tag: 0.18_rc0~74 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=274355776b07e06a8f8e110c4bc0b7bb5bc42281;p=notmuch.git emacs: tree: use orig-tags in search This uses the recent functionality to show the tag changes in the tree buffer. Currently this is only used to show changes the tree buffer makes itself: i.e., it does not make display any changes reflecting tagging done by other notmuch-buffers. --- diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index 8bf2fbc5..7d5f4750 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -701,10 +701,11 @@ unchanged ADDRESS if parsing fails." ((string-equal field "tags") (let ((tags (plist-get msg :tags)) + (orig-tags (plist-get msg :orig-tags)) (face (if match 'notmuch-tree-match-tag-face 'notmuch-tree-no-match-tag-face))) - (format format-string (notmuch-tag-format-tags tags tags face))))))) + (format format-string (notmuch-tag-format-tags tags orig-tags face))))))) (defun notmuch-tree-format-field-list (field-list msg) "Format fields of MSG according to FIELD-LIST and return string" @@ -766,8 +767,10 @@ message together with all its descendents." (push "├" tree-status))) (push (concat (if replies "┬" "─") "►") tree-status) - (plist-put msg :first (and first (eq 0 depth))) - (notmuch-tree-goto-and-insert-msg (plist-put msg :tree-status tree-status)) + (setq msg (plist-put msg :first (and first (eq 0 depth)))) + (setq msg (plist-put msg :tree-status tree-status)) + (setq msg (plist-put msg :orig-tags (plist-get msg :tags))) + (notmuch-tree-goto-and-insert-msg msg) (pop tree-status) (pop tree-status)