Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/lib/email.tcl	27 Jul 2005 14:06:14 -0000	1.8
+++ openacs-4/packages/contacts/lib/email.tcl	10 Sep 2005 13:33:46 -0000	1.9
@@ -66,6 +66,9 @@
     -form $form_elements \
     -on_request {
     } -new_request {
+	if {[exists_and_not_null folder_id]} {
+	    callback contacts::email_subject -folder_id $folder_id
+	}
  	if {[exists_and_not_null item_id]} {
 	    contact::message::get -item_id $item_id -array message_info
 	    set subject $message_info(description)
Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	31 Jul 2005 22:36:02 -0000	1.9
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	10 Sep 2005 13:33:46 -0000	1.10
@@ -45,6 +45,11 @@
 } {
 }
 
+ad_proc -public -callback contacts::email_subject {
+    {-folder_id:required}
+} {
+}
+
 ad_proc -public -callback contact::append_attribute {
     {-multirow_name:required}
     {-name:required}