[beirc-cvs] CVS beirc

[afuchs]

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)