* wl/wl-vars.el (wl-biff-notify-hook): Set default to beep.

* doc/wl.texi, doc/wl-ja.texi: Update.

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 32dd47a..e2a7594 100644 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -6182,13 +6182,12 @@ face \e$B$N@_Dj$O\e(B @file{.emacs} \e$B$K=q$/$3$H$O$G$-$J$$$N$G\e(B @file{~/.wl} \e$
 
 @item wl-biff-notify-hook
 @vindex wl-biff-notify-hook
-\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B
 \e$B?7$7$$%a!<%k$,FO$$$?:]$K<B9T$5$l$k%U%C%/!#\e(B
-\e$BNc$($P%S!<%W2;$rLD$i$9$J$i\e(B
+\e$BCe?.;~$K%S!<%W2;$rLD$i$9!J=i4|@_Dj!K$J$i0J2<$N$h$&$K@_Dj$7$^$9!#\e(B
 @lisp
 (setq wl-biff-notify-hook '(beep))
 @end lisp
-\e$B$N$h$&$K@_Dj$7$^$9!#\e(B
+\e$B2;$rLD$i$5$J$$>l9g$O\e(B @code{nil} \e$B$K@_Dj$7$F$/$@$5$$!#\e(B
 @end table
 
 

diff --git a/doc/wl.texi b/doc/wl.texi
index 2f2368a..415e02f 100644 (file)
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -6249,12 +6249,12 @@ Check mail arrival in this period.
 
 @item wl-biff-notify-hook
 @vindex wl-biff-notify-hook
-The initial setting is @code{nil}.
-This is a hook run at the arrival of the new mail.
-To beep, set as:
+This hook is run at the arrival of new mail.
+To beep with mail arrival(initial setting), set as follows.
 @lisp
 (setq wl-biff-notify-hook '(beep))
 @end lisp
+For silence, set to @code{nil}.
 @end table
 
 

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3585d5d..02d89af 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-26  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-vars.el (wl-biff-notify-hook): Set default to beep.
+
 2001-09-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * wl-vars.el: (wl-biff-state-indicator-off): Changed default value

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index c455669..432b2d3 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -475,7 +475,7 @@ reasons of system internal to accord facilities for the Emacs variants.")
   "A hook called when exit wanderlust.")
 (defvar wl-folder-suspend-hook nil
   "A hook called when suspend wanderlust.")
-(defvar wl-biff-notify-hook nil
+(defvar wl-biff-notify-hook '(beep)
   "A hook called when a biff-notification is invoked.")
 (defvar wl-biff-unnotify-hook nil
   "A hook called when a biff-notification is removed.")