From 87ea96e50e2552cd94638b973167e9afc911d371 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 25 Aug 2022 10:15:00 +0100 Subject: notmuch: better defaults for fcc-dirs --- lib/net/jao-notmuch.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lib/net/jao-notmuch.el') 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) -- cgit v1.2.3