From: okazaki <okazaki>
Date: Fri, 26 Sep 2003 14:03:02 +0000 (+0000)
Subject: (wl-summary-collect-numbers-region): Remove unused
X-Git-Tag: wl-2_11_18~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=359c1c8f46e30aa749a1601cd25875dd47c0b3df;p=elisp%2Fwanderlust.git

(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.
---

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)