From: Evgenii T. <evg...@us...> - 2008-04-15 13:47:46
|
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." |