emacs-jabber jabber-core.el,1.93,1.94 jabber-keepalive.el,1.8,1.9

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv16052

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

Multiaccountify jabber-lost-connection-hook

Its name is now jabber-lost-connection-hooks, and it receives the connection object
as argument.


Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -d -r1.93 -r1.94
--- jabber-core.el	26 Aug 2008 01:17:15 -0000	1.93
+++ jabber-core.el	26 Aug 2008 01:26:31 -0000	1.94
@@ -79,8 +79,9 @@
   :type 'hook
   :group 'jabber-core)
 
-(defcustom jabber-lost-connection-hook nil
-  "*Hooks run after involuntary disconnection"
+(defcustom jabber-lost-connection-hooks nil
+  "*Hooks run after involuntary disconnection.
+The functions are called with one argument: the connection object."
   :type 'hook
   :group 'jabber-core)
 
@@ -269,7 +270,7 @@
 	(reason (plist-get state-data :disconnection-reason))
 	(ever-session-established (plist-get state-data :ever-session-established)))
     (unless expected
-      (run-hooks 'jabber-lost-connection-hook)
+      (run-hook-with-args 'jabber-lost-connection-hooks fsm)
       (message "%s@%s/%s: connection lost: `%s'"
 	       (plist-get state-data :username)
 	       (plist-get state-data :server)

Index: jabber-keepalive.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-keepalive.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- jabber-keepalive.el	17 Sep 2007 12:26:16 -0000	1.8
+++ jabber-keepalive.el	26 Aug 2008 01:26:31 -0000	1.9
@@ -1,7 +1,7 @@
 ;; jabber-keepalive.el - try to detect lost connection
 
+;; Copyright (C) 2004, 2008 - Magnus Henoch - ma...@fr...
 ;; Copyright (C) 2007 - Detlev Zundel - dz...@gn...
-;; Copyright (C) 2004 - Magnus Henoch - ma...@fr...
 
 ;; This file is a part of jabber.el.
 
@@ -108,7 +108,7 @@
 	     (current-time-string)
 	     (plist-get (fsm-get-state-data c) :server))
 
-    (run-hooks jabber-lost-connection-hook)
+    (run-hooks jabber-lost-connection-hooks c)
     (jabber-disconnect-one c nil)))
 
 (provide 'jabber-keepalive)