From: yoichi <yoichi>
Date: Thu, 20 Sep 2001 15:45:27 +0000 (+0000)
Subject: * wl-vars.el (wl-message-truncate-lines): Change default value
X-Git-Tag: wl-2_7_5~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0fd1dbee05cddb8e63c5925608a42002a8f7549c;p=elisp%2Fwanderlust.git

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