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

Subject: [PATCH v2 11/13] emacs: code cleanup in `notmuch-show-operate-all', no functional changes

Date: Mon, 30 Jan 2012 06:26:20 +0400

To: notmuch@notmuchmail.org

Cc:

From: Dmitry Kurochkin


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 b115a8f..69381ac 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -1516,13 +1516,12 @@ TAG-CHANGES is a list of tag operations for `notmuch-tag'."
 TAG-CHANGES is a list of tag operations for `notmuch-tag'."
   (interactive (notmuch-read-tag-changes nil notmuch-show-thread-id))
   (apply 'notmuch-tag (notmuch-show-get-messages-ids-search) tag-changes)
-  (save-excursion
-    (goto-char (point-min))
-    (loop do (let* ((current-tags (notmuch-show-get-tags))
-		    (new-tags (notmuch-update-tags current-tags tag-changes)))
-	       (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 tag-changes)))
+       (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


Thread: