* 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 (file)
--- 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 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -193,7 +193,8 @@
 
 ;; 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")
+;(setq wl-summary-line-format "%M/%D %h:%m %-4S %[ %17f %] %t%C%#%~%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 8e2ca26..7b32105 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): 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 (file)
--- 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