From faeb8e6f02cde3d102094d59f862a523b1f0382f Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Tue, 25 Sep 2001 15:42:27 +0000
Subject: [PATCH] * wl/wl-vars.el (wl-biff-notify-hook): Remove duplicate
 definition and set default to beep. * doc/wl.texi,
 doc/wl-ja.texi (wl-biff-notify-hook): Follow the change of
 default value.

---
 doc/wl-ja.texi |    5 ++---
 doc/wl.texi    |    6 +++---
 wl/ChangeLog   |    5 +++++
 wl/wl-vars.el  |    4 +---
 4 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 2e53a07..b7e8031 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -6430,13 +6430,12 @@ face $B$N@_Dj$O(B @file{.emacs} $B$K=q$/$3$H$O$G$-$J$$$N$G(B @file{~/.wl} $
 
 @item wl-biff-notify-hook
 @vindex wl-biff-notify-hook
-$B=i4|@_Dj$O(B @code{nil}$B!#(B
 $B?7$7$$%a!<%k$,FO$$$?:]$K<B9T$5$l$k%U%C%/!#(B
-$BNc$($P%S!<%W2;$rLD$i$9$J$i(B
+$BCe?.;~$K%S!<%W2;$rLD$i$9!J=i4|@_Dj!K$J$i0J2<$N$h$&$K@_Dj$7$^$9!#(B
 @lisp
 (setq wl-biff-notify-hook '(beep))
 @end lisp
-$B$N$h$&$K@_Dj$7$^$9!#(B
+$B2;$rLD$i$5$J$$>l9g$O(B @code{nil} $B$K@_Dj$7$F$/$@$5$$!#(B
 @end table
 
 
diff --git a/doc/wl.texi b/doc/wl.texi
index cad6207..38ebda9 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -6525,12 +6525,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 5433f25..91f75b5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-26  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-biff-notify-hook): Remove duplicate definition
+	and set default to beep.
+
 2001-09-25  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-vars.el (wl-draft-truncate-lines): New variable.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 2c7d02a..d45baed 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -498,7 +498,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.")
@@ -538,8 +538,6 @@ reasons of system internal to accord facilities for the Emacs variants.")
   "A hook called when score mode is started.")
 (defvar wl-make-plugged-hook nil
   "A hook called when make plugged alist.")
-(defvar wl-biff-notify-hook '(beep)
-  "A hook called when a biff-notification is invoked.")
 
 (defvar wl-plugged-exit-hook nil
   "A hook called when exit plugged mode.")
-- 
1.7.10.4