From: Dmitry Kurochkin <dmitry.kurochkin@gmail.com>
Date: Thu, 26 Jan 2012 17:34:49 +0000 (+0400)
Subject: emacs: `notmuch-search-operate-all' code cleanup, no functional changes
X-Git-Tag: debian/0.12_rc1-1~147
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=58d714e5ced2b6d16dcbd91589715e5ec52c97b4;p=notmuch.git

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

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 291eca2e..72f78edc 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -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)