diff options
| author | Anton Khirnov <anton@khirnov.net> | 2012-08-06 18:10:31 +0200 |
|---|---|---|
| committer | Anton Khirnov <anton@khirnov.net> | 2012-08-06 18:10:31 +0200 |
| commit | 7192d0221a361d3d9cfd6626058e4a1c86ea7b44 (patch) | |
| tree | 11d3db0604f47498e16b50ef7f559e138bfe4482 /emacs/notmuch-message.el | |
| parent | 6bc2f5a999d9ff77779d98b7cc688a4350ea65d9 (diff) | |
| parent | 6b820673fc9c2483572af5ec7ea91e4d7d7258c9 (diff) | |
Merge remote-tracking branch 'origin/master' into vim
Diffstat (limited to 'emacs/notmuch-message.el')
| -rw-r--r-- | emacs/notmuch-message.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/emacs/notmuch-message.el b/emacs/notmuch-message.el index 08e5b17..d3738bf 100644 --- a/emacs/notmuch-message.el +++ b/emacs/notmuch-message.el @@ -20,6 +20,7 @@ ;; Authors: Jesse Rosenthal <jrosenthal@jhu.edu> (require 'message) +(require 'notmuch-tag) (require 'notmuch-mua) (defcustom notmuch-message-replied-tags '("replied") @@ -31,7 +32,7 @@ For example, if you wanted to add a \"replied\" tag and remove the \"inbox\" and \"todo\", you would set (\"replied\" \"-inbox\" \"-todo\"\)" :type 'list - :group 'notmuch) + :group 'notmuch-send) (defun notmuch-message-mark-replied () ;; get the in-reply-to header and parse it for the message id. @@ -44,7 +45,7 @@ the \"inbox\" and \"todo\", you would set (concat "+" str) str)) notmuch-message-replied-tags))) - (apply 'notmuch-tag (concat "id:" (car (car rep))) tags))))) + (funcall 'notmuch-tag (notmuch-id-to-query (car (car rep))) tags))))) (add-hook 'message-send-hook 'notmuch-message-mark-replied) |