Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv29190
Modified Files:
jabber-chat.el
Log Message:
Fix for fix for /me.
Index: jabber-chat.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-chat.el,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -d -r1.89 -r1.90
--- jabber-chat.el 1 Mar 2008 21:28:48 -0000 1.89
+++ jabber-chat.el 1 Mar 2008 21:58:08 -0000 1.90
@@ -350,10 +350,10 @@
(jabber-xml-path (cadr data) '(("jabber:x:delay" . "x")))))
(internal-time
(plist-get (cddr data) :time))
- (body (car
+ (body (ignore-errors (car
(jabber-xml-node-children
(car
- (jabber-xml-get-children (cadr data) 'body)))))
+ (jabber-xml-get-children (cadr data) 'body))))))
(/me-p
(and (> (length body) 4)
(string= (substring body 0 4) "/me "))))
|
