From: okazaki <okazaki>
Date: Mon, 4 Apr 2005 03:35:02 +0000 (+0000)
Subject: (wl-summary-exec): Reduce loop strength in a dolist loop.
X-Git-Tag: wl-2_15_3~94
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=380cdecefbf53d2f2695074707b531cfde9bad3a;p=elisp%2Fwanderlust.git

(wl-summary-exec): Reduce loop strength in a dolist loop.
---

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 24820e1..0918594 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -682,12 +682,13 @@ Return number if put mark succeed"
     ;; collected is a pair of
     ;; mark-string and a list of mark-info
     (dolist (pair collected)
-      (setq action (assoc (car pair) wl-summary-mark-action-list))
-      (when (and (cdr pair) (wl-summary-action-exec-function action))
-	(setq modified t)
-	(setq failures (+ failures (funcall
-				    (wl-summary-action-exec-function action)
-				    (cdr pair))))))
+      (when (cdr pair)
+	(setq action (assoc (car pair) wl-summary-mark-action-list))
+	(when (wl-summary-action-exec-function action)
+	  (setq modified t)
+	  (setq failures (+ failures (funcall
+				      (wl-summary-action-exec-function action)
+				      (cdr pair)))))))
     (when modified
       (wl-summary-set-message-modified))
     (run-hooks 'wl-summary-exec-hook)