From 359c1c8f46e30aa749a1601cd25875dd47c0b3df Mon Sep 17 00:00:00 2001 From: okazaki Date: Fri, 26 Sep 2003 14:03:02 +0000 Subject: [PATCH] (wl-summary-collect-numbers-region): Remove unused local variable. Change the order of a collected list into the same as the specified range. Remove nil from a collected list. --- wl/wl-action.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/wl/wl-action.el b/wl/wl-action.el index a7d409a..cb86b91 100644 --- a/wl/wl-action.el +++ b/wl/wl-action.el @@ -646,7 +646,7 @@ Return number if put mark succeed" (goto-char (point-min)) ;; for thread... (if (eq wl-summary-buffer-view 'thread) - (let (number entity mark-info) + (let (number entity) (while (not (eobp)) (setq numbers (cons (wl-summary-message-number) numbers) entity (wl-thread-get-entity number)) @@ -655,11 +655,11 @@ Return number if put mark succeed" (dolist (msg (wl-thread-get-children-msgs number)) (setq numbers (cons msg numbers)))) (forward-line 1))) - (let (number mark-info) + (let (number) (while (not (eobp)) (setq numbers (cons (wl-summary-message-number) numbers)) (forward-line 1)))) - numbers)))) + (nreverse (delq nil numbers)))))) (defun wl-summary-exec (&optional numbers) (interactive) -- 1.7.10.4