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

emacs/show: add optional orig-tags argument to n-s-i-headerline

Browse source 
This will support use of this function in notmuch-show-update-tags.
This commit is contained in:
David Bremner 2022-11-11 16:48:30 -05:00
parent 2b842a1d8c
commit 056249627a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/notmuch-show.el
View file

@ -530,7 +530,7 @@ Return unchanged ADDRESS if parsing fails."
(plist-put msg :height height)
height))))
(defun notmuch-show-insert-headerline (msg-plist depth tags)
(defun notmuch-show-insert-headerline (msg-plist depth tags &optional orig-tags)
"Insert a notmuch style headerline based on HEADERS for a
message at DEPTH in the current thread."
(let* ((start (point))
@ -555,7 +555,7 @@ message at DEPTH in the current thread."
" ("
date
") ("
(notmuch-tag-format-tags tags tags)
(notmuch-tag-format-tags tags (or orig-tags tags))
")")
(insert
(if (> file-count 1)