From 96b235745674edd10579315705b5556438f92bfc Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 2 Sep 2022 02:38:02 +0100 Subject: notmuch fcc fix --- lib/net/jao-notmuch.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 2a5e772..0d5ff53 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -413,11 +413,11 @@ '("-unread" "-new" "+spam")))) (jao-notmuch-tree--tag-and-next tags nil nil))) -(defun jao-notmuch-tree-reset-tags () - (interactive) +(defun jao-notmuch-tree-reset-tags (&optional and-next) + (interactive "P") (let ((tags (plist-get (notmuch-tree-get-message-properties) :orig-tags))) (jao-notmuch-tree--tag tags nil nil) - (jao-notmuch-tree--next nil nil t t))) + (when and-next (jao-notmuch-tree--next nil nil t t)))) (defvar jao-notmuch-mua-reply-not-inherited '("attachment" "sent" "new" "bigml" "jao" "trove")) @@ -431,7 +431,7 @@ (tagstr (mapconcat (lambda (s) (concat "+" s)) tags " ")) (fcc (concat "trove/" trove " " tagstr " -new +sent +trove")) (fcc-dirs (assoc-delete-all ".*" (copy-alist notmuch-fcc-dirs)))) - (append fcc-dirs `((".*" . ,fcc)))(apply fun args))) + (append fcc-dirs `((".*" . ,fcc))))) (defun jao-notmuch-mua-new-reply (fun &rest args) (let ((notmuch-fcc-dirs (and (not (notmuch-show-get-header :List-Id)) -- cgit v1.2.3