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 "))))
|
