diff options
| author | David Bremner <david@tethera.net> | 2022-11-11 16:48:30 -0500 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2022-11-15 07:28:29 -0400 |
| commit | 056249627ac68823e5246b2586db9fbb8002c6b0 (patch) | |
| tree | 70c876adb164ea6080e6ffdd20ae14200c34795f /emacs | |
| parent | 2b842a1d8cb25981c19d9adb33fe962f4ebd2e9f (diff) | |
emacs/show: add optional orig-tags argument to n-s-i-headerline
This will support use of this function in notmuch-show-update-tags.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-show.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |