* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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