(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 (file)
--- 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)