emacs-jabber jabber-core.el,1.55,1.56

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv28632

Modified Files:
	jabber-core.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-384
Creator:  Magnus Henoch <ma...@fr...>

Start hacking automatic reconnection


Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- jabber-core.el	15 Aug 2007 20:47:40 -0000	1.55
+++ jabber-core.el	15 Aug 2007 20:47:50 -0000	1.56
@@ -92,6 +92,16 @@
   :type 'hook
   :group 'jabber-core)
 
+(defcustom jabber-auto-reconnect nil
+  "Reconnect automatically after losing connection?"
+  :type 'boolean
+  :group 'jabber-core)
+
+(defcustom jabber-reconnect-delay 5
+  "Seconds to wait before reconnecting"
+  :type 'integer
+  :group 'jabber-core)
+
 (defcustom jabber-roster-buffer "*-jabber-*"
   "The name of the roster buffer"
   :type 'string
@@ -192,7 +202,13 @@
 	       (plist-get state-data :username)
 	       (plist-get state-data :server)
 	       (plist-get state-data :resource)
-	       reason)))
+	       reason)
+
+      (when jabber-auto-reconnect
+	(run-with-timer jabber-reconnect-delay nil
+			(plist-get state-data :username)
+			(plist-get state-data :server)
+			(plist-get state-data :resource)))))
 
   (list state-data nil))