[PATCH 9/6] emacs: code cleanup in `notmuch-show-operate-all', no functional changes

Dmitry Kurochkin dmitry.kurochkin at gmail.com
Fri Jan 27 21:59:08 PST 2012


Use `notmuch-show-mapc' function instead of a custom `loop'.
---
 emacs/notmuch-show.el |   13 ++++++-------
 1 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index e606224..4ec3fce 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -1518,13 +1518,12 @@ i.e. a list of tags to change with '+' and '-' prefixes."
 i.e. a list of tags to change with '+' and '-' prefixes."
   (interactive (notmuch-select-tags-with-completion nil notmuch-show-thread-id))
   (apply 'notmuch-tag (notmuch-show-get-messages-ids-search) changed-tags)
-  (save-excursion
-    (goto-char (point-min))
-    (loop do (let* ((current-tags (notmuch-show-get-tags))
-		    (new-tags (notmuch-update-tags current-tags changed-tags)))
-	       (unless (equal current-tags new-tags)
-		 (notmuch-show-set-tags new-tags)))
-	  while (notmuch-show-goto-message-next))))
+  (notmuch-show-mapc
+   (lambda ()
+     (let* ((current-tags (notmuch-show-get-tags))
+	    (new-tags (notmuch-update-tags current-tags changed-tags)))
+       (unless (equal current-tags new-tags)
+	 (notmuch-show-set-tags new-tags))))))
 
 (defun notmuch-show-add-tag ()
   "Same as `notmuch-show-tag' but sets initial input to '+'."
-- 
1.7.8.3



More information about the notmuch mailing list