From: yoichi <yoichi>
Date: Tue, 25 Sep 2001 15:00:50 +0000 (+0000)
Subject: * wl-vars.el (wl-message-truncate-lines): New variable.
X-Git-Tag: wl-2_7_5~47
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8f623e18f34264e40008cec3760c960b2f36c789;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-message-truncate-lines): New variable.

* wl-draft.el (wl-draft): Use wl-draft-truncate-lines
instead of wl-message-truncate-lines for truncate-lines.
---

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 51d5085..2e53a07 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -3746,6 +3746,11 @@ Non-nil $B$J$i(B @code{wl-summary-jump-to-msg-by-message-id} $B$G!"%a%C%;!<%8
 '("Return-Path" "Received" "^To" "^Cc" "Newsgroups" "Subject" "^From")$B!#(B
 $B%a%C%;!<%8%P%C%U%!$KI=<($9$k%X%C%@%U%#!<%k%I$N=gHV$r@55,I=8=$N%j%9%H$G(B
 $B;XDj$7$^$9!#(B
+
+@item wl-message-truncate-lines
+@vindex wl-message-truncate-lines
+$B=i4|@_Dj$O(B @code{default-truncate-lines} $B$NCM$,;H$o$l$^$9!#(B
+Non-nil $B$J$i%a%C%;!<%8%P%C%U%!$GD9$$9T$N@^$jJV$7$r$7$^$;$s!#(B
 @end table
 
 
@@ -4232,6 +4237,11 @@ Non-nil $B$J$i%&%#%s%I%&$rI=<($7$J$,$i%F%s%W%l!<%H$rA*Br$9$k>l9g!"%j%?!<%s(B
 $B=i4|@_Dj$O(B @code{nil}$B!#(B
 Non-nil $B$J$i%I%i%U%HMQ$K?7$7$$%U%l!<%`$r3+$-$^$9!#(B
 
+@item wl-draft-truncate-lines
+@vindex wl-draft-truncate-lines
+$B=i4|@_Dj$O(B @code{default-truncate-lines} $B$NCM$,;H$o$l$^$9!#(B
+Non-nil $B$J$i%I%i%U%H%P%C%U%!$GD9$$9T$N@^$jJV$7$r$7$^$;$s!#(B
+
 @item wl-from
 @vindex wl-from
 $B=i4|@_Dj$OJQ?t(B @code{user-mail-address} $B$NCM!#(B
diff --git a/doc/wl.texi b/doc/wl.texi
index 9bc2fb4..cad6207 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -3768,6 +3768,11 @@ If @code{nil}, the value of @code{mime-view-visible-field-list} is used.
 '("Return-Path" "Received" "^To" "^Cc" "Newsgroups" "Subject" "^From").
 Header fields in message buffer are ordered by this value.
 Each elements are regexp of field-name.
+
+@item wl-message-truncate-lines
+@vindex wl-message-truncate-lines
+The initial value is the value of @code{default-truncate-lines}.
+If it is non-nil, truncate long lines in message buffer.
 @end table
 
 @node Draft, Disconnected Operations, Message, Top
@@ -4278,6 +4283,11 @@ a reply draft buffer when it is prepared.
 The initial setting is @code{nil}.
 If non-nil, use new frame for the draft.
 
+@item wl-draft-truncate-lines
+@vindex wl-draft-truncate-lines
+The initial value is the value of @code{default-truncate-lines}.
+If it is non-nil, truncate long lines in draft buffer.
+
 @item wl-from
 @vindex wl-from
 The initial setting is the value of the variable
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 988cb0a..791b72c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-09-25  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-message-truncate-lines): New variable.
+
+	* wl-draft.el (wl-draft): Use wl-draft-truncate-lines
+	instead of wl-message-truncate-lines for truncate-lines.
+
 2001-09-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-message.el (wl-message-display-internal): Call
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 83b336b..dd7be2b 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1351,7 +1351,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 truncate-lines wl-draft-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 b0a0238..2c7d02a 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1165,10 +1165,16 @@ Set this if (system-name) does not return FQDN."
   :group 'wl-pref)
 
 (defcustom wl-message-truncate-lines default-truncate-lines
-  "*Truncate lines in Message/Draft Buffer."
+  "*Truncate lines in Message Buffer."
   :type 'boolean
   :group 'wl-pref)
 
+(defcustom wl-draft-truncate-lines default-truncate-lines
+  "*Truncate lines in Draft Buffer."
+  :type 'boolean
+  :group 'wl-draft
+  :group 'wl-pref)
+
 (defcustom wl-message-scroll-amount 5
   "*Scroll amount by SPC key."
   :type 'integer