diff --git a/ChangeLog b/ChangeLog
index 4375c84ca..ecc5c241f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-24  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* UI/Contacts/UIxContactsListView.m (-currentContactClasses): new
+	method that returns the classes associated to the current contact.
+	For now, only the c_component.
+
 2011-03-24  Francis Lachapelle  <flachapelle@inverse.ca>
 
 	* UI/MailerUI/UIxMailListActions.m (-imap4SortOrdering): verify
diff --git a/UI/Contacts/UIxContactsListView.m b/UI/Contacts/UIxContactsListView.m
index 34c3dfd75..86cda3a43 100644
--- a/UI/Contacts/UIxContactsListView.m
+++ b/UI/Contacts/UIxContactsListView.m
@@ -121,6 +121,11 @@
   return contactInfos;
 }
 
+- (NSString *) currentContactClasses
+{
+  return [[currentContact objectForKey: @"c_component"] lowercaseString];
+}
+
 - (id <WOActionResults>) contactSearchAction
 {
   id <WOActionResults> result;
diff --git a/UI/Templates/ContactsUI/UIxContactsListView.wox b/UI/Templates/ContactsUI/UIxContactsListView.wox
index 450b31bd7..427917de5 100644
--- a/UI/Templates/ContactsUI/UIxContactsListView.wox
+++ b/UI/Templates/ContactsUI/UIxContactsListView.wox
@@ -26,7 +26,7 @@
     </thead>
     <tbody id="contactsListTbody">
       <var:foreach list="contactInfos" item="currentContact">
-        <tr class="tableview"
+        <tr var:class="currentContactClasses"
           var:categories="currentContact.c_categories"
           var:id="currentContact.c_name"
           var:contactname="currentContact.c_cn">
diff --git a/UI/WebServerResources/ContactsUI.css b/UI/WebServerResources/ContactsUI.css
index 246f72967..9dcdd6e33 100644
--- a/UI/WebServerResources/ContactsUI.css
+++ b/UI/WebServerResources/ContactsUI.css
@@ -199,12 +199,6 @@ TABLE#contactsList
   -khtml-user-select: none;
   width: 100%; }
 
-TABLE#contactsList TBODY TD.displayName
-{ background-repeat: no-repeat;
-  background-image: url('abcard.png');
-  background-position: 4px 1px;
-  padding-left: 24px; }
-
 TABLE#contactsList TD,
 TABLE#contactsList TH
 { overflow: hidden;
@@ -215,18 +209,26 @@ TABLE#contactsList TH
 TABLE#contactsList TH
 { white-space: pre; }
 
-TABLE#contactsList TD IMG
-{
-  vertical-align: middle;
-  margin-left: 1em;
-  margin-right: .2em;
-}
-
 TABLE#contactsList TR._deleted TD
 { 
   text-decoration: line-through;
 }
 
+TABLE#contactsList TD.displayName
+{ background-repeat: no-repeat;
+  background-position: 4px 1px;
+  padding-left: 24px; }
+
+TABLE#contactsList TR.vcard TD.displayName
+{
+  background-image: url('abcard.png');
+}
+
+TABLE#contactsList TR.vlist TD.displayName
+{
+  background-image: url('ablist.png');
+}
+
 DIV#contactView
 { 
   position: absolute;
diff --git a/UI/WebServerResources/ablist.png b/UI/WebServerResources/ablist.png
new file mode 100644
index 000000000..45d81a4c8
Binary files /dev/null and b/UI/WebServerResources/ablist.png differ