Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/forums/www/message-post.tcl	21 Oct 2002 18:35:57 -0000	1.14
+++ openacs-4/packages/forums/www/message-post.tcl	22 Oct 2002 13:32:37 -0000	1.15
@@ -170,7 +170,7 @@
 }
 
 set message_id [db_nextval acs_object_id_seq]
-set subject ""
+#set subject ""
 
 if {![empty_string_p $parent_id]} {
     # get the parent message information
@@ -188,7 +188,10 @@
 element set_properties message forum_id -value $forum_id
 element set_properties message parent_id -value $parent_id
 element set_properties message message_id -value $message_id
-element set_properties message subject -value $subject
+# only set subject is this is a reply to a previous message
+if {[info exists subject]} {
+    element set_properties message subject -value $subject
+}
 element set_properties message confirm_p -value 0
 element set_properties message subscribe_p -value 0