diff options
author | Daniel Schoepe <daniel.schoepe@googlemail.com> | 2011-05-15 17:48:58 +0200 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2011-05-24 13:28:41 -0700 |
commit | d84e92709195d13a117d8f98847ff17f8ff2276c (patch) | |
tree | 464c744a7f85ffffdaea7bc00f11cc4b3517cfa0 /emacs/notmuch-message.el | |
parent | f35db275c44a0bc7a820b0dee20938c3782467d3 (diff) |
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.
Diffstat (limited to 'emacs/notmuch-message.el')
-rw-r--r-- | emacs/notmuch-message.el | 3 |
1 files changed, 1 insertions, 2 deletions
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) |