From 4896ebabaeadd25971d9a53863ddb4eddbdf656f Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 8 May 2002 07:03:56 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 7 +++++++ wl/wl-summary.el | 9 ++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) 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 + + * 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 * 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))) -- 1.7.10.4