emacs-jabber jabber.el,1.93,1.94

[Evgenii T. <evg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv28171

Modified Files:
	jabber.el 
Log Message:
highlight-presence patch part2


Index: jabber.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber.el,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -d -r1.93 -r1.94
--- jabber.el	21 Sep 2008 19:30:35 -0000	1.93
+++ jabber.el	8 Mar 2009 13:53:27 -0000	1.94
@@ -219,14 +219,14 @@
 
 ;;;###autoload
 (defconst jabber-presence-strings
-  '(("" . "Online")
-    ("away" . "Away")
-    ("xa" . "Extended Away")
-    ("dnd" . "Do not Disturb")
-    ("chat" . "Chatty")
-    ("error" . "Error")
-    (nil . "Offline"))
-  "Mapping from presence types to readable strings")
+  `(("" . ,(jabber-propertize "Online" 'face 'jabber-roster-user-online))
+    ("away" . ,(jabber-propertize "Away" 'face 'jabber-roster-user-away))
+    ("xa" . ,(jabber-propertize "Extended Away" 'face 'jabber-roster-user-xa))
+    ("dnd" . ,(jabber-propertize "Do not Disturb" 'face 'jabber-roster-user-dnd))
+    ("chat" . ,(jabber-propertize "Chatty" 'face 'jabber-roster-user-chatty))
+    ("error" . ,(jabber-propertize "Error" 'face 'jabber-roster-user-error))
+    (nil . ,(jabber-propertize "Offline" 'face 'jabber-roster-user-offline)))
+  "Mapping from presence types to readable, colorized strings")
 
 ;;;###autoload
 (defun jabber-customize ()