From: teranisi <teranisi>
Date: Tue, 7 May 2002 08:07:38 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-line-format-spec-alist): Added '~'.
X-Git-Tag: elmo-mark-root~152
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=830cee42ee8c56cc021337c22354d7cbdbbe0a98;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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."