* 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 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -3746,6 +3746,11 @@ Non-nil \e$B$J$i\e(B @code{wl-summary-jump-to-msg-by-message-id} \e$B$G!"%a%C%;!<%8
 '("Return-Path" "Received" "^To" "^Cc" "Newsgroups" "Subject" "^From")\e$B!#\e(B
 \e$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\e(B
 \e$B;XDj$7$^$9!#\e(B
+
+@item wl-message-truncate-lines
+@vindex wl-message-truncate-lines
+\e$B=i4|@_Dj$O\e(B @code{default-truncate-lines} \e$B$NCM$,;H$o$l$^$9!#\e(B
+Non-nil \e$B$J$i%a%C%;!<%8%P%C%U%!$GD9$$9T$N@^$jJV$7$r$7$^$;$s!#\e(B
 @end table
 
 
@@ -4232,6 +4237,11 @@ Non-nil \e$B$J$i%&%#%s%I%&$rI=<($7$J$,$i%F%s%W%l!<%H$rA*Br$9$k>l9g!"%j%?!<%s\e(B
 \e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B
 Non-nil \e$B$J$i%I%i%U%HMQ$K?7$7$$%U%l!<%`$r3+$-$^$9!#\e(B
 
+@item wl-draft-truncate-lines
+@vindex wl-draft-truncate-lines
+\e$B=i4|@_Dj$O\e(B @code{default-truncate-lines} \e$B$NCM$,;H$o$l$^$9!#\e(B
+Non-nil \e$B$J$i%I%i%U%H%P%C%U%!$GD9$$9T$N@^$jJV$7$r$7$^$;$s!#\e(B
+
 @item wl-from
 @vindex wl-from
 \e$B=i4|@_Dj$OJQ?t\e(B @code{user-mail-address} \e$B$NCM!#\e(B

diff --git a/doc/wl.texi b/doc/wl.texi
index 9bc2fb4..cad6207 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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