Index: openacs-4/packages/project-manager/lib/assignee-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/assignee-portlet.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/project-manager/lib/assignee-portlet.adp	28 Jul 2005 10:57:56 -0000	1.4
+++ openacs-4/packages/project-manager/lib/assignee-portlet.adp	4 Aug 2005 17:07:07 -0000	1.5
@@ -21,6 +21,9 @@
       <li>
 	<a href="@assignee_edit_url;noquote@">#project-manager.Edit_1#</a>
       </li>
+      <li>
+        <a href="@send_email_url;noquote@">#project-manager.send_mail#</a>
+      </li>
     </ul>
   </td>
 </tr>
Index: openacs-4/packages/project-manager/lib/assignee-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/assignee-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/lib/assignee-portlet.tcl	28 Jul 2005 10:57:56 -0000	1.2
+++ openacs-4/packages/project-manager/lib/assignee-portlet.tcl	4 Aug 2005 17:07:07 -0000	1.3
@@ -20,6 +20,9 @@
 
 set user_id     [auth::require_login]
 
+# Send Email URL
+set send_email_url "send-mail?project_id=$project_id"
+
 # There is no point showing an empty listbox, which happens if the user assigns all roles to himself. Doing it this way avoids another trip to the database.
 set select_list_html [pm::role::project_select_list -select_name "role_id" -project_item_id $project_item_id -party_id $user_id]
 if {[string compare $select_list_html "<select name=\"role_id\"></select>"]} {