More portable and easier to read regex in notmuch-search-operate-all

The former one worked in 23.1.50.1 but not in 23.1.1.

Signed-off-by: Jed Brown <jed@59A2.org>
Tested-by: Keith Packard <keithp@keithp.com>

diff --git a/notmuch.el b/notmuch.el
index 96c5d965e1dcf35a6061c307ca5a19022cc292b3..65473ba70911fd0ab5bdc6e0f2e05b71dd72b2a9 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -1152,7 +1152,7 @@ characters as well as `_.+-'.
     (let ((words action-split))
       (when (null words) (error "No operation given"))
       (while words
     (let ((words action-split))
       (when (null words) (error "No operation given"))
       (while words

-       (unless (string-match-p "^[\+\-][_\+\-\\w]+$" (car words))
+       (unless (string-match-p "^[-+][-+_.[:word:]]+$" (car words))

          (error "Action must be of the form `+thistag -that_tag'"))
        (setq words (cdr words))))
     (apply 'notmuch-call-notmuch-process "tag"
          (error "Action must be of the form `+thistag -that_tag'"))
        (setq words (cdr words))))
     (apply 'notmuch-call-notmuch-process "tag"