Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv8702
Modified Files:
jabber-chat.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-443
Creator: Magnus Henoch <ma...@fr...>
Fix header line avatars
Index: jabber-chat.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-chat.el,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -d -r1.86 -r1.87
--- jabber-chat.el 4 Feb 2008 16:54:16 -0000 1.86
+++ jabber-chat.el 6 Feb 2008 16:19:03 -0000 1.87
@@ -42,9 +42,10 @@
(defcustom jabber-chat-header-line-format
'("" (jabber-chat-buffer-show-avatar
- (let ((buddy (jabber-jid-symbol jabber-chatting-with)))
- (jabber-propertize " "
- 'display (get buddy 'avatar))))
+ (:eval
+ (let ((buddy (jabber-jid-symbol jabber-chatting-with)))
+ (jabber-propertize " "
+ 'display (get buddy 'avatar)))))
(:eval (jabber-jid-displayname jabber-chatting-with))
"\t" (:eval (let ((buddy (jabber-jid-symbol jabber-chatting-with)))
(propertize
|
