From: teranisi <teranisi>
Date: Mon, 2 Apr 2001 09:29:23 +0000 (+0000)
Subject: * wl-vars.el (wl-biff-unnotify-hook): New variable.
X-Git-Tag: wl-2_6-root~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6496fb940b09542445ce0dc3b262bb903ab5502e;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-biff-unnotify-hook): New variable.

* wl-util.el (wl-biff-notify): Run `wl-biff-unnotify-hook' when
 biff notification is removed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c9bc1b0..f998e25 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-04-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-biff-unnotify-hook): New variable.
+
+	* wl-util.el (wl-biff-notify): Run `wl-biff-unnotify-hook' when
+	biff notification is removed.
+
 2001-03-20  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-folder.el (wl-folder-write-current-folder): Support petname.
diff --git a/wl/wl-util.el b/wl/wl-util.el
index cd24a30..d949fe1 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -805,6 +805,8 @@ This function is imported from Emacs 20.7."
 (defsubst wl-biff-notify (new-mails notify-minibuf)
   (when (and (not wl-modeline-biff-status) (> new-mails 0))
     (run-hooks 'wl-biff-notify-hook))
+  (when (and wl-modeline-biff-status (eq new-mails 0))
+    (run-hooks 'wl-biff-unnotify-hook))
   (setq wl-modeline-biff-status (> new-mails 0))
   (force-mode-line-update t)
   (when notify-minibuf
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 12e2e63..cf0b3ad 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -470,6 +470,8 @@ reasons of system internal to accord facilities for the Emacs variants.")
   "A hook called when suspend wanderlust.")
 (defvar wl-biff-notify-hook nil
   "A hook called when a biff-notification is invoked.")
+(defvar wl-biff-unnotify-hook nil
+  "A hook called when a biff-notification is removed.")
 (defvar wl-auto-check-folder-pre-hook nil
   "A hook called before auto check folders.")
 (defvar wl-auto-check-folder-hook nil