From 47fea6eb4ffa0d92e89d94c5e18ef61843d2cdce Mon Sep 17 00:00:00 2001 From: okazaki Date: Thu, 29 Jul 2004 08:38:14 +0000 Subject: [PATCH] (wl-summary-exec): Fix the bug whereby a non null `numbers' is ignored. --- wl/wl-action.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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) -- 1.7.10.4