X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-summary.el;h=ba42408a43afe71f78274b8ecca79ebad60223b2;hb=52061841b6997afec3a3108019c9362c35e4864b;hp=c2a4d7f907f57afef1c892b92f9664a0bb9fa2ee;hpb=11a0b35d8be2879888e135b4e00f6ca131e07d73;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index c2a4d7f..ba42408 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3000,7 +3000,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	  (while (not (eobp))
 	    (when (string= (wl-summary-temp-mark) mark)
 	      (setq msglist (cons (wl-summary-message-number) msglist)))
-	    (forward-line 1)))))))
+	    (forward-line 1))
+	  (nreverse msglist))))))
 
 (defun wl-summary-exec ()
   (interactive)
@@ -4231,7 +4232,7 @@ If ARG, exit virtual folder."
 (defun wl-summary-line-list-info ()
   (let ((list-info (wl-summary-get-list-info wl-message-entity)))
     (if (car list-info)
-	(format (if (cdr list-info) "(%s %05d)" "(%s)")
+	(format (if (cdr list-info) "(%s %05.0f)" "(%s)")
 		(car list-info) (cdr list-info))
       "")))