From 10fc6f291171b20b7cbb524a24a192fba08b34a5 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Sun, 5 Nov 2000 18:04:02 +0000
Subject: [PATCH] `wl-summary-write-current-folder' and
 `wl-folder-write-current-folder'.

---
 doc/wl-ja.texi |   19 +++++++++++++------
 doc/wl.texi    |   22 ++++++++++++++--------
 2 files changed, 27 insertions(+), 14 deletions(-)

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 8651345..25ff567 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -1662,10 +1662,13 @@ IMAP $B%U%)%k%@$GD>@\>C$7$?>l9g$@$1%5!<%P>e$N%^!<%/$,>C$($^$9!#(B)
 
 @item W
 @kindex W (Folder)
-@findex wl-folder-write-current-newsgroup
-$B8=:_%+!<%=%k$,$"$k%U%)%k%@$,(B NNTP $B%U%)%k%@$J$i!"(B
-Newsgroups $B%U%#!<%k%I$rJd$C$F%I%i%U%H$rMQ0U$7$^$9!#(B
-(@code{wl-folder-write-current-newsgroup})
+@findex wl-folder-write-current-folder
+$B8=:_%+!<%=%k$,$"$k%U%)%k%@$,(B NNTP $B%U%)%k%@$J$i!"(B@samp{Newsgroups:} $B%U%#!<(B
+$B%k%I$rJd$C$F%I%i%U%H$rMQ0U$7$^$9!#%a!<%j%s%0%j%9%H$N%j%U%!%$%k@h$J$i!"%a!<(B
+$B%j%s%0%j%9%H$N%"%I%l%9$r?dB,$7$F!"(B@samp{To:} $B%U%#!<%k%I$rJd$C$F%I%i%U%H(B
+$B$rMQ0U$7$^$9!#JQ?t(B @code{wl-subscribed-mailing-list} $B$r@_Dj$7$F$*$/I,MW(B
+$B$,$"$j$^$9!#(B
+(@code{wl-folder-write-current-folder})
 
 @item C-c C-o
 @kindex C-c C-o (Folder)
@@ -2822,9 +2825,13 @@ prefix argument $B$D$-$J$i$P%-%c%C%7%e$,B8:_$7$F$bL5;k$7$F:FFI$_9~$_$7D>$7$^$9!
 
 @item W
 @kindex W (Summary)
-@findex wl-draft-write-current-newsgroup
+@findex wl-summary-write-current-folder
 $B8=:_$N%5%^%j$,%K%e!<%9%0%k!<%W$N>l9g!"(B@samp{Newsgroups:} $B%U%#!<%k%I$rJd$C(B
-$B$F%I%i%U%H$rMQ0U$7$^$9!#(B(@code{wl-draft-write-current-newsgroup})
+$B$F%I%i%U%H$rMQ0U$7$^$9!#(B
+$B8=:_$N%5%^%j$,%a!<%j%s%0%j%9%H$N>l9g!"%a!<%j%s%0%j%9%H$N%"%I%l%9$r?dB,$7(B
+$B$F(B @samp{To:} $B%U%#!<%k%I$rJd$C$F%I%i%U%H$rMQ0U$7$^$9!#(B
+@code{wl-subscribed-mailing-list} $B$r@_Dj$7$F$*$/I,MW$,$"$j$^$9!#(B
+(@code{wl-summary-write-current-folder})
 
 @item H
 @kindex H (Summary)
diff --git a/doc/wl.texi b/doc/wl.texi
index 35a56f7..75d2bd5 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -1635,10 +1635,14 @@ Create a new draft message.
 
 @item W
 @kindex W (Folder)
-@findex wl-folder-write-current-newsgroup
-If the current cursor point is on the NNTP folder,
-create a new draft message which already has newsgroups field.
-(@code{wl-folder-write-current-newsgroup})
+@findex wl-folder-write-current-folder
+If the current cursor point is on the NNTP folder, create a new draft
+message which already has @samp{Newsgroups:} field.  If the current
+cursor point is on the folder for mailing list (refile destination),
+create a new draft message which already has @samp{To:} field with
+guessed mailing list adderss (If @code{wl-subscribed-mailing-list} is
+valid list).
+(@code{wl-folder-write-current-folder})
 
 @item C-c C-o
 @kindex C-c C-o (Folder)
@@ -2816,10 +2820,12 @@ Prepare a new draft.
 
 @item W
 @kindex W (Summary)
-@findex wl-summary-write-current-newsgroup
-Prepare a new draft.  If the current folder is netnews folder,
-@samp{Newsgroups:} field is completed.
-(@code{wl-summary-write-current-newsgroup})
+@findex wl-summary-write-current-folder
+Prepare a new draft.  If the current folder is NNTP folder,
+@samp{Newsgroups:} field is completed.  If the current folder is mailing
+list folder (refile destination), guess @samp{To:} field and completed
+(If @code{wl-subscribed-mailing-list} is valid list)
+(@code{wl-summary-write-current-folder})
 
 @item H
 @kindex H (Summary)
-- 
1.7.10.4