2003-01-06 Mito <mito@mxa.nes.nec.co.jp>

	* wl-summary.el (wl-summary-line-list-info): Use %f to make
	list-count instead of %d.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fc6bd06..98a996d 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-06  Mito  <mito@mxa.nes.nec.co.jp>
+
+       * wl-summary.el (wl-summary-line-list-info): Use %f to make
+       list-count instead of %d.
+
 2003-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-demo.el (wl-demo-copyright-notice): Add 2003.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 727aeef..94cdc25 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4187,7 +4187,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))
       "")))