This will support use of this function in notmuch-show-update-tags.
---
emacs/notmuch-show.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index b7a8de6a..5fb5ab31 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -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))
@@ -556,7 +556,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)
--
2.35.1
_______________________________________________
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-le...@notmuchmail.org
