From 2f041bda5cedfdce0a6a8b3599d1f6f779764619 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 25 May 2022 23:22:47 +0100 Subject: jao-notmuch: inheriting original's tags in replies --- lib/net/jao-notmuch.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'lib/net') diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index bd48e8f..6344eab 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -414,6 +414,24 @@ (jao-notmuch-tree--tag tags nil nil) (jao-notmuch-tree--next nil nil t t))) +(defvar jao-notmuch-mua-reply-not-inherited + '("attachment" "sent" "new" "unread")) + +(defun jao-notmuch--append-to-fcc (suffix) + (mapcar (lambda (e) + (let ((r (cdr e))) + (if (stringp r) (cons (car e) (concat r " " suffix)) e))) + notmuch-fcc-dirs)) + +(defun jao-notmuch-mua-new-reply (fun &rest args) + (let* ((tags (seq-difference (notmuch-show-get-tags) + jao-notmuch-mua-reply-not-inherited)) + (tagstr (mapconcat (lambda (s) (concat "+" s)) tags " ")) + (notmuch-fcc-dirs (jao-notmuch--append-to-fcc tagstr))) + (apply fun args))) + +(advice-add 'notmuch-mua-new-reply :around #'jao-notmuch-mua-new-reply) + ;;;; Results formatters -- cgit v1.2.3