emacs-jabber jabber-chat.el,1.88,1.89

[Evgenii T. <evg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv16840

Modified Files:
	jabber-chat.el 
Log Message:
Fix for /me handing (message body requesting)


Index: jabber-chat.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-chat.el,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -d -r1.88 -r1.89
--- jabber-chat.el	1 Mar 2008 20:42:46 -0000	1.88
+++ jabber-chat.el	1 Mar 2008 21:28:48 -0000	1.89
@@ -350,7 +350,10 @@
 			       (jabber-xml-path (cadr data) '(("jabber:x:delay" . "x")))))
 	 (internal-time
 	  (plist-get (cddr data) :time))
-	 (body (jabber-xml-path (cadr data) '(body "")))
+	 (body (car
+	       (jabber-xml-node-children
+		(car
+		 (jabber-xml-get-children (cadr data) 'body)))))
 	 (/me-p
 	  (and (> (length body) 4)
 	       (string= (substring body 0 4) "/me "))))