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