[PATCH 5/5] emacs: make `notmuch-search-operate-all' use matched-msgids instead of the original query string
Pieter Praet
pieter at praet.org
Sun Jul 3 23:51:58 PDT 2011
Signed-off-by: Pieter Praet <pieter at praet.org>
---
emacs/notmuch.el | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 46e276a..0d040a2 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -869,7 +869,10 @@ Each character of the tag name may consist of alphanumeric
characters as well as `_.+-'.
"
(interactive "sOperation (+add -drop): notmuch tag ")
- (let ((action-split (split-string action " +")))
+ (let ((action-split (split-string action " +"))
+ (msgids (mapconcat 'identity
+ (notmuch-search-find-matched-msgids-region (point-min) (- (point-max) 2))
+ " or ")))
;; Perform some validation
(let ((words action-split))
(when (null words) (error "No operation given"))
@@ -877,7 +880,7 @@ characters as well as `_.+-'.
(unless (string-match-p "^[-+][-+_.[:word:]]+$" (car words))
(error "Action must be of the form `+thistag -that_tag'"))
(setq words (cdr words))))
- (apply 'notmuch-tag notmuch-search-query-string action-split)))
+ (apply 'notmuch-tag msgids action-split)))
(defun notmuch-search-buffer-title (query)
"Returns the title for a buffer with notmuch search results."
--
1.7.5.4
More information about the notmuch
mailing list