emacs-jabber jabber-chat.el,1.86,1.87

[Magnus H. <leg...@us...>]

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