Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/www/message.tcl	15 Jun 2005 22:13:57 -0000	1.4
+++ openacs-4/packages/contacts/www/message.tcl	16 Jun 2005 08:55:33 -0000	1.5
@@ -43,8 +43,16 @@
 
 set recipients [list]
 foreach party_id $party_ids {
-    lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
+    
+    # Check if the party has a valid e-mail address
+    if {![empty_string_p [cc_email_from_party $party_id]]} {
+	lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
+	lappend parties_new $party_id
+    }
 }
+
+set party_ids $parties_new
+
 set recipients [join $recipients ", "]
 
 if {[exists_and_not_null object_id]} {