* liece-emacs.el (liece-emacs-unread-character): Abolish.

[elisp/liece.git] / lisp / liece-handle.el

diff --git a/lisp/liece-handle.el b/lisp/liece-handle.el
index 8aa1d78..522282e 100644 (file)
--- a/lisp/liece-handle.el
+++ b/lisp/liece-handle.el
@@ -190,7 +190,8 @@
            (setq liece-channel-unread-list
                  (delete chnl liece-channel-unread-list)))
        (setq liece-channel-unread-list
-             (cons chnl liece-channel-unread-list))))
+             (cons chnl liece-channel-unread-list))
+      (run-hook-with-args 'liece-channel-unread-hook chnl)))
 
     (if (and (liece-nick-equal chnl liece-real-nickname)
             (not (liece-nick-equal prefix liece-current-chat-partner)))