From 8f623e18f34264e40008cec3760c960b2f36c789 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 25 Sep 2001 15:00:50 +0000 Subject: [PATCH] * 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. --- doc/wl-ja.texi | 10 ++++++++++ doc/wl.texi | 10 ++++++++++ wl/ChangeLog | 7 +++++++ wl/wl-draft.el | 2 +- wl/wl-vars.el | 8 +++++++- 5 files changed, 35 insertions(+), 2 deletions(-) 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 + + * 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 * 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 -- 1.7.10.4