Index: openacs-4/packages/project-manager/www/send-mail.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/send-mail.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/project-manager/www/send-mail.adp	26 May 2006 11:55:39 -0000	1.5
+++ openacs-4/packages/project-manager/www/send-mail.adp	6 Jun 2006 16:10:55 -0000	1.6
@@ -13,4 +13,4 @@
 
  -->
 
-<include src="/packages/acs-mail-lite/lib/email" party_ids=@party_ids@ export_vars=@export_vars@ return_url=@return_url;noquote@ object_id=@project_item_id@ no_callback_p="f" checked_p="f" use_sender_p="f" cc="@cc@" bcc="@bcc@" mime_type="@mime_type@">
+<include src="/packages/acs-mail-lite/lib/email" party_ids=@party_ids@ export_vars=@export_vars@ return_url=@return_url;noquote@ object_id=@project_item_id@ no_callback_p="f" checked_p="f" use_sender_p="f" cc="@cc@" bcc="@bcc@" mime_type="@mime_type@" subject="@subject@">
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]