* 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 (file)
--- 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 (file)
--- 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)))