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