From: okazaki <okazaki>
Date: Thu, 29 Jul 2004 08:38:14 +0000 (+0000)
Subject: (wl-summary-exec): Fix the bug whereby a non null `numbers' is ignored.
X-Git-Tag: wl-2_11_31~55
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=47fea6eb4ffa0d92e89d94c5e18ef61843d2cdce;p=elisp%2Fwanderlust.git

(wl-summary-exec): Fix the bug whereby a non null `numbers' is ignored.
---

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 6ec475a..1d34e34 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -663,12 +663,12 @@ Return number if put mark succeed"
 			     (wl-summary-action-mark action)
 			     nil) collected)))
     (dolist (mark-info wl-summary-buffer-temp-mark-list)
-      (if numbers
-	  (when (memq (nth 0 mark-info) numbers)
-	    (setq pair (assoc (nth 1 mark-info) collected)))
-	(setq pair (assoc (nth 1 mark-info) collected)))
-      (setq pair (assoc (nth 1 mark-info) collected))
-      (setcdr pair (cons mark-info (cdr pair))))
+      (setq pair
+	    (when (or (null numbers)
+		      (memq (nth 0 mark-info) numbers))
+	      (assoc (nth 1 mark-info) collected)))
+      (if pair
+	  (setcdr pair (cons mark-info (cdr pair)))))
     ;; collected is a pair of
     ;; mark-string and a list of mark-info
     (dolist (pair collected)