emacs-jabber jabber-conn.el,2.9,2.10

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

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)