[beirc-cvs] CVS beirc

[rgoldman]

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))