* 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 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -2935,6 +2935,22 @@ Non-nil \e$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 \e$B:9=P$7?M$NI=<(7A<0$K$D$$$F\e(B
+
+\e$B=q<05-9f\e(B @samp{%f} \e$B$O!"\e(B@code{wl-summary-from-function} \e$B$G;XDj$7$?4X?t$,JV$9CM$r\e(B
+\e$BI=<($7$^$9!#4X?t\e(B @code{wl-summary-default-from} \e$B$rMQ$$$k>l9g\e(B(\e$B%G%U%)%k%H\e(B)\e$B!"DL>o$O\e(B
+\e$B:9=P?M$rI=<($7$^$9$,!"%U%)%k%@L>$,\e(B @code{wl-summary-showto-folder-regexp}
+\e$B$K%^%C%A$7!"$+$D:9=P?M$,<+J,$G$"$k%a%C%;!<%8$K$D$$$F$O!"08@h$rI=<($7$^$9!#\e(B
+\e$B$^$?!"\e(B @code{wl-use-petname} \e$B$,\e(B Non-nil \e$B$N>l9g$K$O%Z%C%H%M!<%`$rMQ$$$FI=<($7$^$9!#\e(B
+
+\e$BNc$($P!"\e(B@samp{+backup} \e$B$G$O<+J,$,=P$7$?%a%C%;!<%8$K$D$$$F$O08@h$rI=<($7$?$$>l9g!"\e(B
+\e$B<!$N$h$&$K@_Dj$7$^$9!#\e(B
+
+@lisp
+(setq wl-summary-showto-folder-regexp "^\\+backup$")
+@end lisp
+
+
 @node Key Bindings of Summary, Variables of Summary, Summary View, Summary
 @section \e$B%-!<%P%$%s%I\e(B
 @cindex Keybind, Summary Mode

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