diff options
Diffstat (limited to 'lib/net')
| -rw-r--r-- | lib/net/jao-notmuch.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 11b239f..5c0ba25 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -422,17 +422,18 @@ (jao-notmuch-tree--next nil nil t t))) (defvar jao-notmuch-mua-reply-not-inherited - '("attachment" "sent" "new" "unread" "bigml" "jao" "trove")) + '("attachment" "sent" "new" "bigml" "jao" "trove")) (defun jao-notmuch-mua-new-reply (fun &rest args) (let* ((otags (notmuch-show-get-tags)) (trove (or (seq-some (lambda (x) (and (member x otags) x)) - '("hacking" "bills" "feeds" "jao" "bigml")) + '("hacking" "bills" "feeds" "jao")) "jao")) (tags (seq-difference otags jao-notmuch-mua-reply-not-inherited)) (tagstr (mapconcat (lambda (s) (concat "+" s)) tags " ")) - (fcc (concat "trove/" trove " " tagstr " -new -unread +sent +trove")) - (notmuch-fcc-dirs (append notmuch-fcc-dirs `((".*" . ,fcc))))) + (fcc (concat "trove/" trove " " tagstr " -new +sent +trove")) + (fcc-dirs (assoc-delete-all ".*" (copy-alist notmuch-fcc-dirs))) + (notmuch-fcc-dirs (append fcc-dirs `((".*" . ,fcc))))) (apply fun args))) (advice-add 'notmuch-mua-new-reply :around #'jao-notmuch-mua-new-reply) |