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