From d84e92709195d13a117d8f98847ff17f8ff2276c Mon Sep 17 00:00:00 2001 From: Daniel Schoepe Date: Sun, 15 May 2011 17:48:58 +0200 Subject: emacs: add notmuch-before- and notmuch-after-tag-hook This patch adds hooks that are run before/after messages are tagged From the emacs interface. In order to implement this and to avoid having hooks parse all the arguments to the notmuch binary again, I created a `notmuch-tag' function that other modules should use instead of running (notmuch-call-notmuch-process "tag" ...) directly. --- emacs/notmuch-message.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'emacs/notmuch-message.el') diff --git a/emacs/notmuch-message.el b/emacs/notmuch-message.el index d5c96c2b..aefd3fbc 100644 --- a/emacs/notmuch-message.el +++ b/emacs/notmuch-message.el @@ -44,8 +44,7 @@ the \"inbox\" and \"todo\", you would set (concat "+" str) str)) notmuch-message-replied-tags))) - (apply 'notmuch-call-notmuch-process "tag" - (append tags (list (concat "id:" (car (car rep)))) nil)))))) + (apply 'notmuch-tag (concat "id:" (car (car rep))) tags))))) (add-hook 'message-send-hook 'notmuch-message-mark-replied) -- cgit v1.2.3