From 380cdecefbf53d2f2695074707b531cfde9bad3a Mon Sep 17 00:00:00 2001 From: okazaki Date: Mon, 4 Apr 2005 03:35:02 +0000 Subject: [PATCH] (wl-summary-exec): Reduce loop strength in a dolist loop. --- wl/wl-action.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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) -- 1.7.10.4