Add a hook called after inserting each message into the buffer showing
messages.
---
emacs/notmuch-show.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 761be252..cda0bfe0 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -113,6 +113,12 @@ visible for any given message."
:group 'notmuch-show
:group 'notmuch-hooks)
+(defcustom notmuch-show-insert-msg-hook nil
+ "Functions called after inserting a message."
+ :type 'hook
+ :group 'notmuch-show
+ :group 'notmuch-hooks)
+
(defcustom notmuch-show-max-text-part-size 100000
"Maximum size of a text part to be shown by default in characters.
@@ -1112,7 +1118,9 @@ is t, hide the part initially and show the button."
;; Message visibility depends on whether it matched the search
;; criteria.
(notmuch-show-message-visible msg (and (plist-get msg :match)
- (not (plist-get msg :excluded))))))
+ (not (plist-get msg :excluded))))
+
+ (run-hooks 'notmuch-show-insert-msg-hook)))
;;; Toggle commands
--
2.30.0
_______________________________________________
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-le...@notmuchmail.org
