diff options
| author | jao <jao@gnu.org> | 2022-08-25 10:15:00 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-25 10:15:00 +0100 |
| commit | 87ea96e50e2552cd94638b973167e9afc911d371 (patch) | |
| tree | 058b3e3fa747e71de1513ac5ca630e558d68cbfa /lib/net | |
| parent | 5cc664cbd71b48129b936b9314d6efb1f7b96930 (diff) | |
| download | elibs-87ea96e50e2552cd94638b973167e9afc911d371.tar.gz elibs-87ea96e50e2552cd94638b973167e9afc911d371.tar.bz2 | |
notmuch: better defaults for fcc-dirs
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) |