* wl-summary.el (wl-summary-line-list-count): Change format of the

return value.

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index a7ebe2f..cdfde43 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -193,7 +193,7 @@
        "x-mail-count" "x-ml-count" "x-sequence"))
 
 ;; ML message displays ML name and ML sequence number in subject.
-(setq wl-summary-line-format "%M/%D(%W)%h:%m %t%[%17F %] %# %s")
+(setq wl-summary-line-format "%M/%D(%W)%h:%m %t%[%17F %]%#%s")
 
 ;; imput asynchronously.
 ;; (utils/im-wl.el is needed to be installed.

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 3c1fe28..2c0679e 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -193,7 +193,7 @@
 
 ;; ML \e$B$N%a%C%;!<%8$G$"$l$P!$%5%^%j$N\e(B Subject \e$BI=<($K\e(B
 ;; ML\e$BL>\e(B \e$B$d\e(B ML\e$B$K$*$1$k%a%C%;!<%8HV9f$bI=<($9$k\e(B
-(setq wl-summary-line-format "%M/%D(%W)%h:%m %t%[%17F %] %# %s")
+(setq wl-summary-line-format "%M/%D(%W)%h:%m %t%[%17F %]%#%s")
 
 ;; imput \e$B$K$h$jHsF14|$GAw?.$9$k\e(B
 ;; (utils/im-wl.el \e$B$r%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9!#\e(B

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5fc0e95..09dd715 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-07  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-summary.el (wl-summary-line-list-count): Change format of the
+       return value.
+
 2002-05-03  Daiki Ueno  <ueno@unixuser.org>
 
        * wl-draft.el (wl-draft-beginning-of-line): New command imported
@@ -209,7 +214,7 @@
        * wl-thread.el (wl-thread-insert-message): Ditto.
 
        * Version number is increased to 2.9.10.
-       
+
        * wl-message.el (wl-message-redisplay): Ignore errors while
        wl-message-redisplay-hook.
 
@@ -417,8 +422,8 @@
        * wl-summary.el (wl-summary-next-page): Force display message if
        message is not displayed yet.
        (wl-summary-prev-page): Ditto.
-       
-2002-03-11  J\e,Ai\e(Br\e,At\e(Bme Marant <jerome.marant@free.fr>
+
+2002-03-11  J\e.A\eNir\eNtme Marant <jerome.marant@free.fr>
 
        * wl-folder.el (wl-folder-mode-menu-spec): Fixed typo.
 

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9bbad65..4ba9feb 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4128,12 +4128,12 @@ If ARG, exit virtual folder."
     (condition-case nil
        (if (and ml-name ml-count)
            (if (string= folder wl-default-folder)
-               (format "(%s %05d)"
+               (format " (%s %05d) "
                        (car (split-string ml-name " "))
                        (string-to-int ml-count))
-             (format "#%05d" (string-to-int ml-count)))
-         "")
-      (error ""))))
+             (format " #%05d " (string-to-int ml-count)))
+         " ")
+      (error " "))))
 
 (defun wl-summary-create-line (wl-message-entity
                               wl-parent-message-entity