From: teranisi <teranisi>
Date: Mon, 23 Oct 2000 02:26:56 +0000 (+0000)
Subject: 2000-10-18  SAITO Atsunori <sai@yedo.com>
X-Git-Tag: wl-2_4-root~96
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a7a99acd94bb44b9dc5ca9edb24090b09bf1a50b;p=elisp%2Fwanderlust.git

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
--- 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
--- 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)