Index: openacs-4/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/forums/www/message-email.tcl	17 Dec 2003 15:45:30 -0000	1.11
+++ openacs-4/packages/forums/www/message-email.tcl	6 Apr 2004 12:12:49 -0000	1.12
@@ -42,7 +42,7 @@
 
 if {[template::form is_request message]} {
   element set_properties message message_id -value $message_id
-  element set_properties message subject -value $subject
+  element set_properties message subject -value $message(subject)
 }
 
 set context [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]