* wl-vars.el (wl-summary-line-format-spec-alist): Added '~'.

* wl-util.el (wl-line-parse-format): Set up wl-line-string.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d33ef44..8e2ca26 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2002-05-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-vars.el (wl-summary-line-format-spec-alist): Added '~'.
+
+       * wl-util.el (wl-line-parse-format): Set up wl-line-string.
+
        * wl-vars.el (wl-summary-line-format): Addes some description to the
        docstring.
 

diff --git a/wl/wl-util.el b/wl/wl-util.el
index f620bbe..244152a 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -930,6 +930,7 @@ is enclosed by at least one regexp grouping construct."
        (apply (function concat) (nreverse expanded))
       newtext)))
 
+(defvar wl-line-string)
 (defun wl-line-parse-format (format spec-alist)
   "Make a formatter from FORMAT and SPEC-ALIST."
   (let (f spec specs stack)
@@ -983,7 +984,11 @@ is enclosed by at least one regexp grouping construct."
                                     (string-to-number (match-string 1))
                                     spec)))
                  (replace-match "s" 'fixed)
-                 (setq specs (append specs (list spec))))))))
+                 (setq specs (append specs
+                                     (list
+                                      (list
+                                       'setq 'wl-line-string
+                                       spec)))))))))
            (buffer-string)))
     (append (list 'format f) specs)))
 

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index e1af57a..183ee47 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -191,6 +191,7 @@ If you don't have multiple e-mail addresses, you don't have to set this."
          (if wl-parent-message-entity
              (if wl-thr-linked ">>" ">")
            "")))
+    (?~ (if (zerop (length wl-line-string)) "" " "))
     (?c (if wl-thr-children-number
            (concat "+" (number-to-string wl-thr-children-number) ":")
          " "))
@@ -234,6 +235,7 @@ which are replaced by the given information:
    the from: field string of the message are concatenated.
 %s The subject: field string of the message.
 %S The size of the message (if available).
+%~ If the previous spec is not zero-length, replaced with ' '.
 
 If the format string contains the specifiers %( and %), the text between
 them will have the specified number of columns."