debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +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) (plist-put msg :height 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 "Insert a notmuch style headerline based on HEADERS for a
message at DEPTH in the current thread." message at DEPTH in the current thread."
(let* ((start (point)) (let* ((start (point))
@ -555,7 +555,7 @@ message at DEPTH in the current thread."
" (" " ("
date date
") (" ") ("
(notmuch-tag-format-tags tags tags) (notmuch-tag-format-tags tags (or orig-tags tags))
")") ")")
(insert (insert
(if (> file-count 1) (if (> file-count 1)