debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-01-03 15:21:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: `notmuch-search-operate-all' code cleanup, no functional changes

Browse source
This commit is contained in:
Dmitry Kurochkin 2012-01-26 21:34:49 +04:00 committed by David Bremner
parent f764bbd544
commit 58d714e5ce
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/notmuch.el
View file

@ -891,12 +891,11 @@ characters as well as `_.+-'.
"Operations (+add -drop): notmuch tag "
'("+" "-")))
;; Perform some validation
(let ((words actions))
(when (null words) (error "No operations given"))
(while words
(unless (string-match-p "^[-+][-+_.[:word:]]+$" (car words))
(error "Action must be of the form `+this_tag' or `-that_tag'"))
(setq words (cdr words))))
(when (null actions) (error "No operations given"))
(mapc (lambda (action)
(unless (string-match-p "^[-+][-+_.[:word:]]+$" action)
(error "Action must be of the form `+this_tag' or `-that_tag'")))
actions)
(apply 'notmuch-tag notmuch-search-query-string actions))
(defun notmuch-search-buffer-title (query)