emacs-jabber jabber-roster.el,1.46,1.47

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv18965

Modified Files:
	jabber-roster.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-361
Creator:  Magnus Henoch <ma...@fr...>

Add jabber-account property to resources in roster


Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -d -r1.46 -r1.47
--- jabber-roster.el	7 May 2007 02:04:43 -0000	1.46
+++ jabber-roster.el	8 May 2007 15:57:48 -0000	1.47
@@ -445,7 +445,9 @@
 				  (or (cdr (assoc (plist-get (cdr resource) 'show) jabber-presence-faces))
 				      'jabber-roster-user-online)
 				  'jabber-jid
-				  (format "%s/%s" (symbol-name buddy) (car resource)))
+				  (format "%s/%s" (symbol-name buddy) (car resource))
+				  'jabber-account
+				  jc)
 				 resource-str)
 	    (insert "\n" resource-str)))))))