From 6caf631ebf79e2e9ba7e6a80244152b3c3615209 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Mon, 16 Nov 2009 22:06:49 -0800 Subject: [PATCH] Add notmuch-show-hook to allow customization of show windows I wanted to enable got-address-mode and visual-line-mode in my show windows to make messages easier to read and URLs easier to follow. This hook allows the user to run arbitrary code each time a message is shown. Signed-off-by: Keith Packard --- notmuch.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/notmuch.el b/notmuch.el index ed1b363b..f4b09e90 100644 --- a/notmuch.el +++ b/notmuch.el @@ -639,6 +639,18 @@ view, (remove the \"inbox\" tag from each), with mode-name "notmuch-show") (setq buffer-read-only t)) +;;;###autoload + +(defgroup notmuch nil + "Notmuch mail reader for Emacs." + :group 'mail) + +(defcustom notmuch-show-hook nil + "List of functions to call when notmuch displays a message." + :type 'hook + :options '(goto-address) + :group 'notmuch) + (defun notmuch-show (thread-id &optional parent-buffer) "Run \"notmuch show\" with the given thread ID and display results. @@ -661,6 +673,7 @@ thread from that buffer can be show when done with this one)." (call-process "notmuch" nil t nil "show" thread-id) (notmuch-show-markup-messages) ) + (run-hooks 'notmuch-show-hook) ; Move straight to the first unread message (if (not (notmuch-show-message-unread-p)) (progn