(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)