summaryrefslogtreecommitdiffhomepage
path: root/lib/net
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-02 02:38:02 +0100
committerjao <jao@gnu.org>2022-09-02 02:38:11 +0100
commit96b235745674edd10579315705b5556438f92bfc (patch)
treee07b0a718076b2b969a48ad19d5ffa7e4e8d4b59 /lib/net
parent2c6afef1f6bb75097bd192ccb8a88489da4eb063 (diff)
downloadelibs-96b235745674edd10579315705b5556438f92bfc.tar.gz
elibs-96b235745674edd10579315705b5556438f92bfc.tar.bz2
notmuch fcc fix
Diffstat (limited to 'lib/net')
-rw-r--r--lib/net/jao-notmuch.el8
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))