diff options
author | Keith Packard <keithp@keithp.com> | 2009-11-16 22:06:49 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-18 23:29:44 +0100 |
commit | 6caf631ebf79e2e9ba7e6a80244152b3c3615209 (patch) | |
tree | 9c1834efd68f0c5fba4984580e1214564be6b009 /notmuch.el | |
parent | fca070f8ce72ac424a6494d9cf2763852f8b219c (diff) |
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>
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -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 |