;; Perform some validation
(when (null tags) (error "No tags given"))
(mapc (lambda (tag)
- (unless (string-match-p "^[-+][-+_.[:word:]]+$" tag)
+ (unless (string-match-p "^[-+]\\S-+$" tag)
(error "Tag must be of the form `+this_tag' or `-that_tag'")))
tags)
(run-hooks 'notmuch-before-tag-hook)