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

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

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