[beirc-cvs] CVS beirc

[afuchs]

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

Modified Files:
	application.lisp 
Log Message:
fix the query auto-closer (use the receiver's connection, not the
frame-current one)



--- /project/beirc/cvsroot/beirc/application.lisp	2006/02/25 15:22:22	1.41
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/02/25 15:28:01	1.42
@@ -378,7 +378,7 @@
                          (= 0
                             (unseen-messages receiver) (all-unseen-messages receiver)
                             (messages-directed-to-me receiver))
-                         (null (irc:find-channel (current-connection *application-frame*) (title receiver)))
+                         (null (irc:find-channel (connection receiver) (title receiver)))
                          (> (- (get-universal-time) (last-visited receiver)) *max-query-inactive-time*))
                 (push receiver receivers-to-close)))
             (receivers *application-frame*))