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.5 -r1.6
--- openacs-4/packages/project-manager/www/send-mail.tcl	26 May 2006 11:55:39 -0000	1.5
+++ openacs-4/packages/project-manager/www/send-mail.tcl	6 Jun 2006 16:10:55 -0000	1.6
@@ -17,6 +17,10 @@
 set project_item_id [pm::project::get_project_item_id -project_id $project_id]
 set project_name [pm::project::name -project_item_id $project_item_id]
 
+if {![exists_and_not_null subject]} {
+    set subject $project_name
+}
+
 set title [_ project-manager.send_message_to]
 set context [list [list "one?project_id=$project_id" $project_name] $title]