From 0fd1dbee05cddb8e63c5925608a42002a8f7549c Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 20 Sep 2001 15:45:27 +0000 Subject: [PATCH] * wl-vars.el (wl-message-truncate-lines): Change default value to default-truncate-lines. * wl-draft.el (wl-draft): Set truncate-lines as in wl-message. --- wl/ChangeLog | 7 +++++++ wl/wl-draft.el | 1 + wl/wl-vars.el | 4 ++-- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index a15fdc6..6dac16f 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,10 @@ +2001-09-21 Yoichi NAKAYAMA + + * wl-vars.el (wl-message-truncate-lines): Change default value + to default-truncate-lines. + + * wl-draft.el (wl-draft): Set truncate-lines as in wl-message. + 2001-09-20 Yoichi NAKAYAMA * wl-vars.el (wl-message-truncate-lines): New variable. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 987badb..017e61e 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1350,6 +1350,7 @@ If optional argument is non-nil, current draft buffer is killed" (delete-other-windows)) (auto-save-mode -1) (wl-draft-mode) + (setq truncate-lines wl-message-truncate-lines) (setq wl-sent-message-via nil) (if (stringp (or from wl-from)) (insert "From: " (or from wl-from) "\n")) diff --git a/wl/wl-vars.el b/wl/wl-vars.el index ab78147..2472ed6 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -1164,8 +1164,8 @@ 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." +(defcustom wl-message-truncate-lines default-truncate-lines + "*Truncate lines in Message/Draft Buffer." :type 'boolean :group 'wl-pref) -- 1.7.10.4