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