Index: openacs-4/packages/project-manager/www/send-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/send-mail.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager/www/send-mail.tcl	4 Aug 2005 17:06:12 -0000	1.1
+++ openacs-4/packages/project-manager/www/send-mail.tcl	30 Sep 2005 20:51:57 -0000	1.2
@@ -26,7 +26,10 @@
 
 set party_ids [list]
 foreach user $users_list {
-    lappend party_ids [lindex $user 0]
+    set user [lindex $user 0]
+    if { ![empty_string_p [party::email -party_id $user]] } {
+	lappend party_ids $user
+    }
 }