debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: show: use orig-tags for tag display

Browse source 
This uses the previous patch to show the tag changes that have occured
in the show buffer since it was last loaded/refreshed.
This commit is contained in:
Mark Walters 2014-03-22 11:51:10 +00:00 committed by David Bremner
parent 941e172724
commit a673d618d1
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/notmuch-show.el
View file

@ -344,7 +344,7 @@ operation on the contents of the current buffer."
(if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t) (if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(replace-match (concat "(" (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) (defun notmuch-clean-address (address)
@ -1168,6 +1168,8 @@ function is used."
(jit-lock-register #'notmuch-show-buttonise-links) (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. ;; 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)))) (setq header-line-format (notmuch-sanitize (notmuch-show-strip-re (notmuch-show-get-subject))))