From: yoichi <yoichi>
Date: Tue, 3 Sep 2002 09:48:25 +0000 (+0000)
Subject: * wl-summary.el: write description for wl-summary-default-from.
X-Git-Tag: elmo-mark-root~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4bf6539130a746ec02a446cf615cc50d0fb3df57;p=elisp%2Fwanderlust.git

* wl-summary.el: write description for wl-summary-default-from.
* wl.texi,wl-ja.texi: mention the effect of wl-summary-default-from.
---

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index a1e4a6d..343410b 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -2935,6 +2935,22 @@ Non-nil $B$G$"$l$P%U%)%k%@$K0\F0$7$?;~$K:G=i$N%a%C%;!<%8$r<+F0E*$K@hFI$_$7$^$9!
 @end group
 @end lisp
 
+@subsection $B:9=P$7?M$NI=<(7A<0$K$D$$$F(B
+
+$B=q<05-9f(B @samp{%f} $B$O!"(B@code{wl-summary-from-function} $B$G;XDj$7$?4X?t$,JV$9CM$r(B
+$BI=<($7$^$9!#4X?t(B @code{wl-summary-default-from} $B$rMQ$$$k>l9g(B($B%G%U%)%k%H(B)$B!"DL>o$O(B
+$B:9=P?M$rI=<($7$^$9$,!"%U%)%k%@L>$,(B @code{wl-summary-showto-folder-regexp}
+$B$K%^%C%A$7!"$+$D:9=P?M$,<+J,$G$"$k%a%C%;!<%8$K$D$$$F$O!"08@h$rI=<($7$^$9!#(B
+$B$^$?!"(B @code{wl-use-petname} $B$,(B Non-nil $B$N>l9g$K$O%Z%C%H%M!<%`$rMQ$$$FI=<($7$^$9!#(B
+
+$BNc$($P!"(B@samp{+backup} $B$G$O<+J,$,=P$7$?%a%C%;!<%8$K$D$$$F$O08@h$rI=<($7$?$$>l9g!"(B
+$B<!$N$h$&$K@_Dj$7$^$9!#(B
+
+@lisp
+(setq wl-summary-showto-folder-regexp "^\\+backup$")
+@end lisp
+
+
 @node Key Bindings of Summary, Variables of Summary, Summary View, Summary
 @section $B%-!<%P%$%s%I(B
 @cindex Keybind, Summary Mode
diff --git a/doc/wl.texi b/doc/wl.texi
index d4cd3e3..f42aec6 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -2944,6 +2944,22 @@ example.
 @end group
 @end lisp
 
+@subsection on the format for sender name
+
+The format string @samp{%f} displays the return value of the function specified
+by @code{wl-summary-from-function}. If you use the function
+@code{wl-summary-default-from} (default), it displays sender name ordinarily,
+while displays the recipient names if the folder name matches with
+@code{wl-summary-showto-folder-regexp} and the sender is yourself.
+If the value of @code{wl-use-petname} is Non-nil, it uses petname to display.
+
+For example, to display recipient names for the message in @samp{+backup} if
+its sender is yourself, set up as follows.
+
+@lisp
+(setq wl-summary-showto-folder-regexp "^\\+backup$")
+@end lisp
+
 
 @node Key Bindings of Summary, Variables of Summary, Summary View, Summary
 @section Key bindings
diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4c623d..f107b76 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-03  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-summary.el (wl-summary-default-from): Write description.
+
 2002-09-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-vars.el (wl-ldap-objectclass): Abolish.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 8c27278..47ff878 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -209,6 +209,12 @@
     subject-string))
 
 (defun wl-summary-default-from (from)
+  "Instance of `wl-summary-from-function'.
+Ordinarily returns the sender name. Returns recipient names if (1)
+summary's folder name matches with `wl-summary-showto-folder-regexp'
+and (2) sender address is yours.
+
+See also variable `wl-use-petname'."
   (let (retval tos ng)
     (unless
 	(and (eq major-mode 'wl-summary-mode)