From: Mark Walters <markwalters1009@gmail.com>
Date: Thu, 22 Aug 2013 17:10:21 +0000 (+0100)
Subject: contrib: pick: add button press helper
X-Git-Tag: 0.17_rc1~184
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=415d5da7dd06a17648549fa42ac3574ef0ccc661;p=notmuch.git

contrib: pick: add button press helper

We will want to be able to activate buttons not in the current
buffer (ie in the message pane) so it is helpful to have a way of
activating a button without signalling error if there is no button.
---

diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el
index 9c1864b2..f24f2b31 100644
--- a/contrib/notmuch-pick/notmuch-pick.el
+++ b/contrib/notmuch-pick/notmuch-pick.el
@@ -200,6 +200,14 @@ open (if the message pane is closed it does nothing)."
        (with-selected-window notmuch-pick-message-window
 	 (call-interactively #',func)))))
 
+(defun notmuch-pick-button-activate (&optional button)
+  "Activate BUTTON or button at point
+
+This function does not give an error if there is no button."
+  (interactive)
+  (let ((button (or button (button-at (point)))))
+    (when button (button-activate button))))
+
 (defvar notmuch-pick-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map [mouse-1] 'notmuch-pick-show-message)