Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/contacts/www/message.tcl	28 Nov 2006 17:33:41 -0000	1.35
+++ openacs-4/packages/contacts/www/message.tcl	5 Dec 2006 04:16:50 -0000	1.36
@@ -72,6 +72,12 @@
 set context [list $title]
 
 set recipients  [list]
+
+if {![exists_and_not_null valid_party_ids]} {
+    ad_return_error "[_ contacts.No_valid_parties]" "[_ contacts.No_valid_parties_lt]"
+    ad_script_abort
+}
+
 foreach party_id $valid_party_ids {
     set contact_name   [contact::name -party_id $party_id]
     set contact_url    [contact::url -party_id $party_id]