emacs-jabber jabber-muc.el,1.69,1.70

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv7621

Modified Files:
	jabber-muc.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-391
Creator:  Magnus Henoch <ma...@fr...>

Fix check for MUC history when stanza contains cdata


Index: jabber-muc.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-muc.el,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- jabber-muc.el	6 Aug 2007 17:08:12 -0000	1.69
+++ jabber-muc.el	23 Aug 2007 21:08:09 -0000	1.70
@@ -847,7 +847,7 @@
 
 	  ;; ...except if the message is part of history, in which
 	  ;; case we don't want an alert.
-	  (let ((children-namespaces (mapcar (lambda (x) (jabber-xml-get-attribute x 'xmlns))
+	  (let ((children-namespaces (mapcar (lambda (x) (when (listp x) (jabber-xml-get-attribute x 'xmlns)))
 					     (jabber-xml-node-children xml-data))))
 	    (unless (or (member "urn:xmpp:delay" children-namespaces)
 			(member "jabber:x:delay" children-namespaces))