From: yoichi <yoichi>
Date: Tue, 25 Sep 2001 16:23:48 +0000 (+0000)
Subject: * wl/wl-vars.el (wl-biff-notify-hook): Set default to beep.
X-Git-Tag: wl-2_6_1~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a3a41df6f98fa0abb3518127776167db9709b5dc;p=elisp%2Fwanderlust.git

* 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
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -6182,13 +6182,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 2f2368a..415e02f 100644
--- 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
--- 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
--- 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.")