From 6496fb940b09542445ce0dc3b262bb903ab5502e Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 2 Apr 2001 09:29:23 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 7 +++++++ wl/wl-util.el | 2 ++ wl/wl-vars.el | 2 ++ 3 files changed, 11 insertions(+) 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 + + * 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 * 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 -- 1.7.10.4