tox jabber-tox.el,1.26,1.27

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

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

Modified Files:
	jabber-tox.el 
Log Message:
Debug output for action attribute


Index: jabber-tox.el
===================================================================
RCS file: /cvsroot/emacs-jabber/tox/jabber-tox.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- jabber-tox.el	17 Nov 2008 23:56:43 -0000	1.26
+++ jabber-tox.el	29 Nov 2008 22:54:04 -0000	1.27
@@ -229,6 +229,7 @@
 	    (from (jabber-xml-get-attribute iq 'from))
 	    (id (jabber-xml-get-attribute iq 'id))
 	    (jingle (jabber-iq-query iq))
+	    (action (jabber-xml-get-attribute jingle 'action))
 	    ;; XXX: could be more than one...
 	    (content (car (jabber-xml-get-children jingle 'content)))
 	    ;; XXX: is it really audio?
@@ -243,6 +244,9 @@
        (jabber-send-iq jc from "result" ()
 		       nil nil nil nil id)
 
+       (unless (string= action "session-initiate")
+	 (fsm-debug-output "Action is %S.  Why is it not \"session-initiate\"?" action))
+
        (cond
 	;; Make sure audio is in the list of contents.  We can
 	;; negotiate away other content types later.