From: David Bremner <david@tethera.net>
Date: Fri, 11 Nov 2022 21:48:30 +0000 (-0500)
Subject: emacs/show: add optional orig-tags argument to n-s-i-headerline
X-Git-Tag: 0.38_rc0~63
X-Git-Url: https://git.cworth.org/git?p=notmuch;a=commitdiff_plain;h=056249627ac68823e5246b2586db9fbb8002c6b0

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

This will support use of this function in notmuch-show-update-tags.
---

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 765b88b9..be68fc3b 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))
@@ -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)