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.
(when (and notmuch-message-replied-tags rep)
;; add a "+" to any tag that is doesn't already begin with a "+"
;; or "-"
- (let ((tags (mapcar '(lambda (str)
- (if (not (string-match "^[+-]" str))
- (concat "+" str)
- str))
+ (let ((tags (mapcar (lambda (str)
+ (if (not (string-match "^[+-]" str))
+ (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)