aboutsummaryrefslogtreecommitdiffhomepage
path: root/emacs
diff options
context:
space:
mode:
authorGravatar Mark Walters <markwalters1009@gmail.com>2014-03-22 11:51:10 +0000
committerGravatar David Bremner <david@tethera.net>2014-03-24 19:48:22 -0300
commita673d618d1342a3f99e9d1d51807fc4dedb9ef61 (patch)
treeef79bf4f403ef075fbdbb53a8b4fe3a70c1269b2 /emacs
parent941e172724188eb0f65bc05035a0a6871a70ba72 (diff)
emacs: show: use orig-tags for tag display
This uses the previous patch to show the tag changes that have occured in the show buffer since it was last loaded/refreshed.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/notmuch-show.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 5492be42..f6ca827e 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -344,7 +344,7 @@ operation on the contents of the current buffer."
(if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t)
(let ((inhibit-read-only t))
(replace-match (concat "("
- (notmuch-tag-format-tags tags tags)
+ (notmuch-tag-format-tags tags (notmuch-show-get-prop :orig-tags))
")"))))))
(defun notmuch-clean-address (address)
@@ -1168,6 +1168,8 @@ function is used."
(jit-lock-register #'notmuch-show-buttonise-links)
+ (notmuch-show-mapc (lambda () (notmuch-show-set-prop :orig-tags (notmuch-show-get-tags))))
+
;; Set the header line to the subject of the first message.
(setq header-line-format (notmuch-sanitize (notmuch-show-strip-re (notmuch-show-get-subject))))