Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv16539
Modified Files:
jabber-conn.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-397
Creator: Magnus Henoch <ma...@fr...>
Fix jabber-get-{connect,send}-function
Have jabber-get-connect-function and jabber-get-send-function use their
argument instead of the removed global variable jabber-connection-type.
Index: jabber-conn.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-conn.el,v
retrieving revision 2.9
retrieving revision 2.10
diff -u -d -r2.9 -r2.10
--- jabber-conn.el 29 Aug 2007 01:45:36 -0000 2.9
+++ jabber-conn.el 29 Aug 2007 12:58:28 -0000 2.10
@@ -102,13 +102,13 @@
(defun jabber-get-connect-function (type)
"Get the connect function associated with TYPE.
TYPE is a symbol; see `jabber-connection-type'."
- (let ((entry (assq jabber-connection-type jabber-connect-methods)))
+ (let ((entry (assq type jabber-connect-methods)))
(nth 1 entry)))
(defun jabber-get-send-function (type)
"Get the send function associated with TYPE.
TYPE is a symbol; see `jabber-connection-type'."
- (let ((entry (assq jabber-connection-type jabber-connect-methods)))
+ (let ((entry (assq type jabber-connect-methods)))
(nth 2 entry)))
(defun jabber-srv-targets (server network-server port)
|
