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

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

diff --git a/lisp/liece-handle.el b/lisp/liece-handle.el
index d5e2b67..c0670c2 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))))