Index: openacs-4/packages/contacts/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/contacts/www/index.tcl	25 Jun 2007 16:25:39 -0000	1.29
+++ openacs-4/packages/contacts/www/index.tcl	25 Jun 2007 17:29:24 -0000	1.30
@@ -117,7 +117,13 @@
 }
 
 if { $search_id ne "" && $contacts_total_count > 0 } {
-    set label [_ contacts.Mail_group]
+    if {[contact::group::mapped_p -group_id $search_id]} {
+	set recipient "[group::title -group_id $search_id]"
+    } else {
+	set recipient "[contact::search::title -search_id $search_id]"
+    }
+    set label "[_ contacts.Mail_group]"
+
     append form_elements {
 	{mail_merge_group:text(submit) {label $label} {value "1"}}
     }