debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-01-05 16:21:44 +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 " "Operations (+add -drop): notmuch tag "
'("+" "-"))) '("+" "-")))
;; Perform some validation ;; Perform some validation
(let ((words actions)) (when (null actions) (error "No operations given"))
(when (null words) (error "No operations given")) (mapc (lambda (action)
(while words (unless (string-match-p "^[-+][-+_.[:word:]]+$" action)
(unless (string-match-p "^[-+][-+_.[:word:]]+$" (car words)) (error "Action must be of the form `+this_tag' or `-that_tag'")))
(error "Action must be of the form `+this_tag' or `-that_tag'")) actions)
(setq words (cdr words))))
(apply 'notmuch-tag notmuch-search-query-string actions)) (apply 'notmuch-tag notmuch-search-query-string actions))
(defun notmuch-search-buffer-title (query) (defun notmuch-search-buffer-title (query)