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