Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/contacts/lib/contacts.tcl	12 Aug 2005 07:45:17 -0000	1.21
+++ openacs-4/packages/contacts/lib/contacts.tcl	13 Aug 2005 14:17:34 -0000	1.22
@@ -29,6 +29,14 @@
     }
 }
 
+# If we do not have a search_id, limit the list to only users in the default group.
+
+if {[exists_and_not_null search_id]} {
+    set group_where_clause ""
+} else {
+    set group_where_clause "and group_distinct_member_map.group_id = [contacts::default_group]"
+}
+
 set group_by_group_id ""
 if { ![exists_and_not_null group_id] } {
     set where_group_id " = [contacts::default_group]"