* liece-handle.el (liece-handle-privmsg-message): Don't compare when

`item' and `liece-current-chat-partner' are nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41f7bf0..77137ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-09  OHASHI Akira  <bg66@koka-in.org>
+
+       * liece-handle.el (liece-handle-privmsg-message): Don't compare when
+       `item' and `liece-current-chat-partner' are nil.
+
 2000-10-12   Akira Ohashi  <bg66@luck.gr.jp>
 
        * liece-menu.el (liece-menu-ctcp-menu): Follow the CTCP command

diff --git a/lisp/liece-handle.el b/lisp/liece-handle.el
index c47fbf8..739168c 100644 (file)
--- a/lisp/liece-handle.el
+++ b/lisp/liece-handle.el
@@ -177,7 +177,7 @@
     (let ((item (if (eq liece-command-buffer-mode 'chat)
                    liece-current-chat-partner
                  liece-current-channel)))
-      (unless (liece-channel-equal chnl item)
+      (unless (and item (liece-channel-equal chnl item))
        (if (liece-channel-unread-p chnl)
            (setq liece-channel-unread-list
                  (delete chnl liece-channel-unread-list)))
@@ -186,7 +186,10 @@
       (run-hook-with-args 'liece-channel-unread-functions chnl)))
 
     (if (and (liece-nick-equal chnl liece-real-nickname)
-            (not (liece-nick-equal prefix liece-current-chat-partner)))
+            (if (and liece-current-chat-partner
+                     (eq liece-command-buffer-mode 'chat))
+                (not (liece-nick-equal prefix liece-current-chat-partner))
+              t))
        (liece-message (_ "A private message has arrived from %s")
                       prefix))))