tox jabber-tox.el,1.18,1.19

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

Update of /cvsroot/emacs-jabber/tox
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv8385

Modified Files:
	jabber-tox.el 
Log Message:
jingle-send-native-candidate: payload must be a list


Index: jabber-tox.el
===================================================================
RCS file: /cvsroot/emacs-jabber/tox/jabber-tox.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- jabber-tox.el	16 Oct 2008 22:22:28 -0000	1.18
+++ jabber-tox.el	17 Oct 2008 16:10:19 -0000	1.19
@@ -326,25 +326,25 @@
 The CANDIDATE is a list of components, as provided by the
 NewNativeCandidate signal of Tox."
   (jingle-send-iq state-data "transport-info"
-		  `(content
-		    ((creator . "initiator")
-		     (name . "foo"))
-		    (transport 
-		     ((xmlns . ,jingle-ice-udp-ns))
-		     ,@(mapcar
-			(lambda (c)
-			  `(candidate
-			    ((component . ,(number-to-string (nth 1 c)))
-			     ;; foundation?
-			     ;; generation?
-			     (ip . ,(nth 2 c))
-			     ;; network?
-			     (port . ,(number-to-string (nth 3 c)))
-			     (protocol . ,(nth 4 c))
-			     (priority . ,(nth 7 c))
-			     ;; how to translate type?
-			     )))
-			candidate)))))
+		  `((content
+		     ((creator . "initiator")
+		      (name . "foo"))
+		     (transport 
+		      ((xmlns . ,jingle-ice-udp-ns))
+		      ,@(mapcar
+			 (lambda (c)
+			   `(candidate
+			     ((component . ,(number-to-string (nth 1 c)))
+			      ;; foundation?
+			      ;; generation?
+			      (ip . ,(nth 2 c))
+			      ;; network?
+			      (port . ,(number-to-string (nth 3 c)))
+			      (protocol . ,(nth 4 c))
+			      (priority . ,(nth 7 c))
+			      ;; how to translate type?
+			      )))
+			 candidate))))))
 
 (add-to-list 'jabber-iq-set-xmlns-alist
 	     (cons jingle-ns 'jabber-jingle-incoming-iq))