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

Modified Files: application.lisp Log Message: Added auto-identify behavior to com-connect.

--- /project/beirc/cvsroot/beirc/application.lisp 2006/04/26 18:22:54 1.81 +++ /project/beirc/cvsroot/beirc/application.lisp 2006/05/09 17:08:25 1.82 @@ -965,7 +965,12 @@ (irc:start-background-message-handler connection)) (setf success t)) (unless success - (disconnect connection frame "Client error."))))))) + (disconnect connection frame "Client error."))))) + ;; added auto-identify [2006/05/09:rpg] + (when success + (when (member server *auto-identify-list* :test 'equalp) + (com-identify))) + ))

(defun disconnect (connection frame reason) (let ((*application-frame* frame))