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)