* 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.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a15fdc6..6dac16f 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-09-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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 (file)
--- 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)