diff options
| author | jao <jao@gnu.org> | 2022-09-02 02:38:02 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-02 02:38:11 +0100 |
| commit | 96b235745674edd10579315705b5556438f92bfc (patch) | |
| tree | e07b0a718076b2b969a48ad19d5ffa7e4e8d4b59 | |
| parent | 2c6afef1f6bb75097bd192ccb8a88489da4eb063 (diff) | |
| download | elibs-96b235745674edd10579315705b5556438f92bfc.tar.gz elibs-96b235745674edd10579315705b5556438f92bfc.tar.bz2 | |
notmuch fcc fix
| -rw-r--r-- | lib/net/jao-notmuch.el | 8 |
1 files 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)) |