[beirc-cvs] CVS update: beirc/application.lisp

[Max-Gerd Retzlaff]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv25833

Modified Files:
	application.lisp 
Log Message:
Bugfix for JOIN-MISSING-CHANNELS: Try only to connect to the channels
if the current *application-frame* is already connected to an IRC server.

Drops the call to TIME in handle-event ((frame beirc) (event foo-event)).

Date: Sun Oct  2 23:39:07 2005
Author: mretzlaff

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.26 beirc/application.lisp:1.27
--- beirc/application.lisp:1.26	Sun Oct  2 19:34:15 2005
+++ beirc/application.lisp	Sun Oct  2 23:39:07 2005
@@ -204,7 +204,7 @@
          (pane (actual-application-pane (pane receiver))))
     (let ((btmp (pane-scrolled-to-bottom-p pane)))
       (setf (pane-needs-redisplay pane) t)
-      (time (redisplay-frame-panes frame))
+      (redisplay-frame-panes frame)
       (when btmp (scroll-pane-to-bottom pane)))
     (medium-force-output (sheet-medium pane)) ;###
     ))
@@ -267,10 +267,11 @@
 
 (defun join-missing-channels (frame)
   (let* ((connection (current-connection frame))
-         (server (irc:server-name connection)))
-   (loop for join-channel in (cdr (assoc server *auto-join-alist* :test #'equal))
+         (server (when connection (irc:server-name connection))))
+    (when server
+      (loop for join-channel in (cdr (assoc server *auto-join-alist* :test #'equal))
          do (unless (gethash join-channel (receivers frame))
-              (irc:join connection join-channel)))))
+              (irc:join connection join-channel))))))
 
 (defun load-user-init-file (&key (pathname *beirc-user-init-file*))
   (when (probe-file pathname)