Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv15191
Modified Files: application.lisp Log Message: use the connection of the receiver to close, not the *a-f*'s current connection.
--- /project/beirc/cvsroot/beirc/application.lisp 2006/02/26 18:41:21 1.47 +++ /project/beirc/cvsroot/beirc/application.lisp 2006/03/01 09:23:01 1.48 @@ -387,7 +387,7 @@ (define-window-switcher com-window-previous (:prior :control) -1 (constantly t))))
(define-beirc-command (com-close :name t) ((receiver 'receiver :prompt "receiver")) - (let* ((connection (current-connection *application-frame*)) + (let* ((connection (connection receiver)) (channel (irc:find-channel connection (title receiver)))) (cond ((member receiver (server-receivers *application-frame*) :key #'cdr)