From: yoichi <yoichi>
Date: Tue, 25 Sep 2001 15:42:27 +0000 (+0000)
Subject: * wl/wl-vars.el (wl-biff-notify-hook): Remove duplicate definition
X-Git-Tag: wl-2_7_5~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=faeb8e6f02cde3d102094d59f862a523b1f0382f;p=elisp%2Fwanderlust.git

* 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.
---

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.")