From bdafcc5056bf48912b144129794c4ba4727905d4 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 20 Sep 2001 13:08:22 +0000 Subject: [PATCH] * wl-vars.el (wl-message-truncate-lines): New variable. * wl-message.el (wl-message-redisplay): Set truncate-lines using wl-message-truncate-lines. --- wl/ChangeLog | 7 +++++++ wl/wl-message.el | 1 + wl/wl-vars.el | 5 +++++ 3 files changed, 13 insertions(+) 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 + + * 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 * 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 -- 1.7.10.4