Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/contacts/www/message.tcl	12 Mar 2006 14:43:04 -0000	1.28
+++ openacs-4/packages/contacts/www/message.tcl	22 Mar 2006 13:21:04 -0000	1.29
@@ -42,7 +42,9 @@
 
 if { [exists_and_not_null party_id] } {
     foreach p_id $party_id {
-	lappend party_ids $p_id
+	if {[lsearch $party_ids $party_id] < 0} {
+	    lappend party_ids $p_id
+	}
     }
 }