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