Index: openacs-4/packages/forums/lib/message/post.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/forums/lib/message/post.tcl 5 Feb 2005 11:55:54 -0000 1.7 +++ openacs-4/packages/forums/lib/message/post.tcl 14 Dec 2005 17:40:56 -0000 1.8 @@ -130,6 +130,7 @@ if { [string equal $action "post"] } { set content [template::util::richtext::get_property content $message_body] set format [template::util::richtext::get_property format $message_body] + forum::message::new \ -forum_id $forum_id \ -message_id $message_id \ Index: openacs-4/packages/forums/tcl/messages-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v diff -u -r1.32 -r1.33 --- openacs-4/packages/forums/tcl/messages-procs.tcl 26 May 2005 10:54:45 -0000 1.32 +++ openacs-4/packages/forums/tcl/messages-procs.tcl 14 Dec 2005 17:41:00 -0000 1.33 @@ -41,6 +41,7 @@ [list format $format] \ [list user_id $user_id]] + set message_id [package_instantiate_object -var_list $var_list forums_message] get -message_id $message_id -array message