emacs-jabber jabber-keepalive.el,1.6,1.7

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

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

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

Add optional jc argument to jabber-keepalive-start


Index: jabber-keepalive.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-keepalive.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- jabber-keepalive.el	15 Apr 2007 23:53:16 -0000	1.6
+++ jabber-keepalive.el	31 Jul 2007 07:05:21 -0000	1.7
@@ -49,8 +49,11 @@
 (defvar jabber-keepalive-debug nil
   "Log keepalive traffic when non-nil")
 
-(defun jabber-keepalive-start ()
-  "Activate keepalive"
+(defun jabber-keepalive-start (&optional jc)
+  "Activate keepalive.
+The JC argument makes it possible to add this function to
+`jabber-post-connect-hooks'; it is ignored.  Keepalive is activated
+for all accounts regardless of the argument."
   (interactive)
 
   (when jabber-keepalive-timer
@@ -62,7 +65,7 @@
 			'jabber-keepalive-do))
   (add-hook 'jabber-post-disconnect-hook 'jabber-keepalive-stop))
 
-(defun jabber-keepalive-stop()
+(defun jabber-keepalive-stop ()
   "Deactivate keepalive"
   (interactive)