summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-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))