summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
64c8d62)
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>
(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"