Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv29398
Modified Files:
jabber-muc-nick-completion.el
Log Message:
Fix for MUC topic changing (possibly others muc messages without text)
Index: jabber-muc-nick-completion.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-muc-nick-completion.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- jabber-muc-nick-completion.el 26 Mar 2008 16:48:07 -0000 1.9
+++ jabber-muc-nick-completion.el 15 Apr 2008 13:47:27 -0000 1.10
@@ -71,11 +71,12 @@
(defun jabber-muc-looks-like-personal-p (message &optional group)
"Return non-nil if jabber MESSAGE is addresed to me.
Optional argument GROUP to look."
- (string-match (concat
+ (if message (string-match (concat
"^"
(jabber-my-nick group)
(regexp-opt jabber-muc-looks-personaling-symbols))
- message))
+ message)
+ nil))
(defun jabber-muc-nicknames ()
"List of conference participants, excluding self, or nil if we not in conference."
|
