From: yoichi <yoichi>
Date: Wed, 8 May 2002 07:03:56 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-line-subject-minimum-length): New
X-Git-Tag: elmo-mark-root~148
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4896ebabaeadd25971d9a53863ddb4eddbdf656f;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-line-subject-minimum-length): New
variable (nil: no minimum).
(wl-summary-line-subject): Add some spaces after subject by
wl-summary-line-subject-minimum-length.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9c04bd2..26a418c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2002-05-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-summary.el (wl-summary-line-subject-minimum-length): New
+	variable (nil: no minimum).
+	(wl-summary-line-subject): Add some spaces after subject by
+	wl-summary-line-subject-minimum-length.
+
 2002-05-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-vars.el (wl-summary-line-format-spec-alist): Redefined `c'
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 6093330..ba03152 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4051,6 +4051,7 @@ If ARG, exit virtual folder."
 	 (t (format "%dB" size)))
       "")))
 
+(defvar wl-summary-line-subject-minimum-length nil)
 (defun wl-summary-line-subject ()
   (let (no-parent subject parent-raw-subject parent-subject)
     (if (string= wl-thr-indent-string "")
@@ -4072,9 +4073,15 @@ If ARG, exit virtual folder."
 			subject parent-subject)))
 	      (funcall wl-summary-subject-function subject)
 	    ""))
+    (when (and wl-summary-line-subject-minimum-length
+	       (< (string-width subject)
+		  wl-summary-line-subject-minimum-length))
+      (while (< (string-width subject)
+		wl-summary-line-subject-minimum-length)
+	(setq subject (concat subject " "))))
     (if (and (not wl-summary-width)
 	     wl-summary-subject-length-limit)
-	(truncate-string subject 
+	(truncate-string subject
 			 wl-summary-subject-length-limit)
       subject)))