2000-10-18 SAITO Atsunori <sai@yedo.com>

	* wl-summary.el (wl-summary-print-destination): Adjust line length.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3ad2213..f4abd4c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-18  SAITO Atsunori <sai@yedo.com>
+
+       * wl-summary.el (wl-summary-print-destination): Adjust line length.
+
 2000-10-20  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * tm-wl.el (toplevel): Use product-provide.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 7d98ab5..8c299ee 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3424,6 +3424,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
       (while (< c len)
        (forward-char -1)
        (setq c (+ c (char-width (following-char)))))
+      (and (> c len) (setq folder (concat " " folder)))
       (setq rs (point))
       (put-text-property rs re 'invisible t)
       (put-text-property rs re 'wl-summary-destination t)