From: yoichi <yoichi>
Date: Thu, 20 Sep 2001 13:08:22 +0000 (+0000)
Subject: * wl-vars.el (wl-message-truncate-lines): New variable.
X-Git-Tag: wl-2_7_5~59
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bdafcc5056bf48912b144129794c4ba4727905d4;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-message-truncate-lines): New variable.

* wl-message.el (wl-message-redisplay): Set truncate-lines using
wl-message-truncate-lines.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c1a58e2..a15fdc6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-09-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-message-truncate-lines): New variable.
+
+	* wl-message.el (wl-message-redisplay): Set truncate-lines using
+	wl-message-truncate-lines.
+
 2001-09-20  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-acap.el (wl-acap-init): Remove period from error message.
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 56621e0..5aceb01 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -379,6 +379,7 @@ Returns non-nil if bottom of message."
     (wl-message-select-buffer wl-message-buffer)
 
     (set-buffer message-buf)
+    (setq truncate-lines wl-message-truncate-lines)
     (setq buffer-read-only nil)
     (setq wl-message-buffer-cur-summary-buffer summary-buf)
     (setq wl-message-buffer-cur-folder (elmo-folder-name-internal folder))
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index b224d0d..ab78147 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1164,6 +1164,11 @@ Set this if (system-name) does not return FQDN."
   :type 'boolean
   :group 'wl-pref)
 
+(defcustom wl-message-truncate-lines nil
+  "*Truncate lines in Message Buffer."
+  :type 'boolean
+  :group 'wl-pref)
+
 (defcustom wl-message-scroll-amount 5
   "*Scroll amount by SPC key."
   :type 'integer