;; Authors: Jesse Rosenthal <jrosenthal@jhu.edu>
(require 'message)
+(require 'notmuch-tag)
(require 'notmuch-mua)
(defcustom notmuch-message-replied-tags '("replied")
For example, if you wanted to add a \"replied\" tag and remove
the \"inbox\" and \"todo\", you would set
(\"replied\" \"-inbox\" \"-todo\"\)"
- :type 'list
+ :type '(repeat string)
:group 'notmuch-send)
(defun notmuch-message-mark-replied ()
(concat "+" str)
str))
notmuch-message-replied-tags)))
- (apply 'notmuch-tag (notmuch-id-to-query (car (car rep))) tags)))))
+ (funcall 'notmuch-tag (notmuch-id-to-query (car (car rep))) tags)))))
(add-hook 'message-send-hook 'notmuch-message-mark-replied)