From: yoichi <yoichi>
Date: Tue, 7 May 2002 08:28:23 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-line-list-count): Reverted.
X-Git-Tag: elmo-mark-root~151
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb7a868adb505554a154cbc9f8df471ea4a58850;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-line-list-count): Reverted.
(example setting in samples/*/dot.wl is also updated)
---

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index cdfde43..834fd46 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -193,7 +193,8 @@
 	"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")
+;(setq wl-summary-line-format "%M/%D %h:%m %-4S %[ %17f %] %t%C%#%~%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 2c0679e..f74d9d5 100644
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -193,7 +193,8 @@
 
 ;; ML のメッセージであれば，サマリの Subject 表示に
 ;; ML名 や MLにおけるメッセージ番号も表示する
-(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")
+;(setq wl-summary-line-format "%M/%D %h:%m %-4S %[ %17f %] %t%C%#%~%s")
 
 ;; imput により非同期で送信する
 ;; (utils/im-wl.el をインストールしておく必要があります。
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8e2ca26..7b32105 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): Reverted.
+	(example setting in samples/*/dot.wl is also updated)
+
 2002-05-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-vars.el (wl-summary-line-format-spec-alist): Added '~'.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index b7442dd..6093330 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4113,12 +4113,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