emacs: relax tag syntax check in `notmuch-tag' function

The tag syntax check in `notmuch-tag' function was too strict and did
not allow nmbug tags with "::".  Since the check is done for all
tagging operations in Emacs UI, this basically means that no nmbug
tags can be changed.  The patch relaxes the tag syntax check to allow
any tag names that do not include whitespace characters.
This commit is contained in:
Dmitry Kurochkin 2012-02-05 11:13:50 +04:00 committed by David Bremner
parent 904eafaefc
commit 26fce4ae60

View file

@ -550,7 +550,7 @@ notmuch-after-tag-hook will be run."
;; Perform some validation ;; Perform some validation
(when (null tags) (error "No tags given")) (when (null tags) (error "No tags given"))
(mapc (lambda (tag) (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'"))) (error "Tag must be of the form `+this_tag' or `-that_tag'")))
tags) tags)
(run-hooks 'notmuch-before-tag-hook) (run-hooks 'notmuch-before-tag-hook)