From: yoichi <yoichi>
Date: Tue, 7 May 2002 03:18:07 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-line-list-count): Change format of the
X-Git-Tag: elmo-mark-root~156
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=be25aa06a6b036f01a0f02ee327b401085ad2a04;p=elisp%2Fwanderlust.git

* 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
--- 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
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -193,7 +193,7 @@
 
 ;; ML $B$N%a%C%;!<%8$G$"$l$P!$%5%^%j$N(B Subject $BI=<($K(B
 ;; ML$BL>(B $B$d(B ML$B$K$*$1$k%a%C%;!<%8HV9f$bI=<($9$k(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 $B$K$h$jHsF14|$GAw?.$9$k(B
 ;; (utils/im-wl.el $B$r%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9!#(B
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5fc0e95..09dd715 100644
--- 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,Ai(Br,At(Bme Marant <jerome.marant@free.fr>
+
+2002-03-11  J.ANirNtme 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
--- 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