[beirc-cvs] CVS beirc

[afuchs]

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

Modified Files:
	receivers.lisp 
Log Message:
Fix pane/receiver removal. We didn't use the right hash key. argh.


--- /project/beirc/cvsroot/beirc/receivers.lisp	2006/02/25 19:55:56	1.18
+++ /project/beirc/cvsroot/beirc/receivers.lisp	2006/02/25 23:28:11	1.19
@@ -88,7 +88,7 @@
 (defun remove-receiver (receiver frame)
   (tab-layout:remove-pane (tab-pane receiver)
                           (find-pane-named frame 'query))
-  (remhash (title receiver) (receivers frame)))
+  (remhash (list (connection receiver) (title receiver)) (receivers frame)))
 
 (defparameter *network-service-sources* '("nickserv" "memoserv" "chanserv" "")
   "Sources whose private messages (PRIVMSG, NOTICE, ...) should