[beirc-cvs] CVS beirc

[afuchs]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv25613

Modified Files:
	application.lisp message-display.lisp 
Log Message:
Fix printing of mode changes and the query auto-closer for multi-server support



--- /project/beirc/cvsroot/beirc/application.lisp	2006/02/25 15:28:01	1.42
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/02/25 16:33:46	1.43
@@ -373,7 +373,7 @@
   (let ((receivers-to-close nil))
    (maphash (lambda (name receiver)
               (declare (ignore name))
-              (when (and (not (eql receiver (server-receiver *application-frame*)))
+              (when (and (not (member receiver (server-receivers *application-frame*) :key #'cdr))
                          (not (eql receiver (current-receiver *application-frame*)))
                          (= 0
                             (unseen-messages receiver) (all-unseen-messages receiver)
--- /project/beirc/cvsroot/beirc/message-display.lisp	2006/02/25 15:22:22	1.33
+++ /project/beirc/cvsroot/beirc/message-display.lisp	2006/02/25 16:33:46	1.34
@@ -426,7 +426,7 @@
                                        channel 1c-mode)))))))
     (t
      (irc:destructuring-arguments (target &rest args) message
-       (let* ((connection (current-connection *application-frame*))
+       (let* ((connection (connection message))
               (target (or (irc:find-user connection target)
                           (irc:find-channel connection target)))
               (mode-changes (irc:parse-mode-arguments connection target args