From: Magnus H. <leg...@us...> - 2007-08-07 17:02:23
|
Update of /cvsroot/emacs-jabber/emacs-jabber In directory sc8-pr-cvs17:/tmp/cvs-serv31821 Modified Files: AUTHORS jabber-activity.el Log Message: Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-375 Creator: Magnus Henoch <ma...@fr...> Make jabber-activity-add work properly when jabber-chat-buffer-format contains %r Patch by Olivier Ramonat. Index: jabber-activity.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-activity.el,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- jabber-activity.el 16 Jul 2007 18:04:29 -0000 1.28 +++ jabber-activity.el 7 Aug 2007 17:02:19 -0000 1.29 @@ -267,13 +267,9 @@ (defun jabber-activity-add (from buffer text proposed-alert) "Add a JID to mode line when `jabber-activity-show-p'" - ;; In case of private MUC message, we want to keep the full JID. - (let ((jid (if (jabber-muc-sender-p from) - from - (jabber-jid-user from)))) - (when (funcall jabber-activity-show-p jid) - (add-to-list 'jabber-activity-jids jid) - (jabber-activity-mode-line-update)))) + (when (funcall jabber-activity-show-p from) + (add-to-list 'jabber-activity-jids from) + (jabber-activity-mode-line-update))) (defun jabber-activity-add-muc (nick group buffer text proposed-alert) "Add a JID to mode line when `jabber-activity-show-p'" Index: AUTHORS =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/AUTHORS,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- AUTHORS 16 Jul 2007 18:04:29 -0000 1.10 +++ AUTHORS 7 Aug 2007 17:02:19 -0000 1.11 @@ -12,6 +12,7 @@ Justin Kirby Kirill A. Korinskiy Carl Henrik Lunde +Olivier Ramonat Andrey Slusar Evgenii Terechkov Milan Zamazal |