From: Keith Packard <keithp@keithp.com>
Date: Tue, 17 Nov 2009 06:06:49 +0000 (-0800)
Subject: Add notmuch-show-hook to allow customization of show windows
X-Git-Tag: 0.1~440
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=6caf631ebf79e2e9ba7e6a80244152b3c3615209;p=notmuch.git

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 <keithp@keithp.com>
---

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