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.5 -r1.6
--- openacs-4/packages/forums/lib/message/post.tcl	29 Jun 2004 10:18:28 -0000	1.5
+++ openacs-4/packages/forums/lib/message/post.tcl	13 Jan 2005 13:58:15 -0000	1.6
@@ -43,10 +43,6 @@
     -datatype text \
     -widget hidden
 
-if { [exists_and_not_null content] && [exists_and_not_null format] } {
-  element set_properties message message_body -value [list $content $format]
-}
-
 if {[form is_request message]} {
     ##############################
     # Form initialisation
@@ -71,8 +67,9 @@
     set init_msg(attach_p) 0
 
     form set_values message init_msg
-
+    
 } elseif {[form is_valid message]} {
+
     ##############################
     # Form processing
     #
@@ -86,7 +83,7 @@
         subscribe_p \
         anonymous_p \
         attach_p
-    
+
     if { [empty_string_p $anonymous_p] } { set anonymous_p 0 }
 
     set action [template::form::get_button message]
@@ -96,11 +93,13 @@
             0]
 
     if { [string equal $action "preview"] } {
+
         set confirm_p 1
         set subject.spellcheck ":nospell:"
         set content.spellcheck ":nospell:"
-        set content [string trimright [template::util::richtext::get_property contents $message_body]]
-        set format [string trimright [template::util::richtext::get_property format $message_body]]
+        set content [template::util::richtext::get_property content $message_body]
+        set format [template::util::richtext::get_property format $message_body]
+	
         set exported_vars [export_vars -form {message_id forum_id parent_id subject {message_body $content} {message_body.format $format} confirm_p subject.spellcheck content.spellcheck anonymous_p attach_p}]
         
         set message(format) $format
@@ -129,17 +128,27 @@
     }
 
     if { [string equal $action "post"] } {
-      set content [string trimright [template::util::richtext::get_property contents $message_body]]
-      set format [string trimright [template::util::richtext::get_property format $message_body]]
+        ns_log notice "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/forums/lib/message/post.tcl
+DB --------------------------------------------------------------------------------
+DB message_body = '${message_body}'
+DB --------------------------------------------------------------------------------"
+        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 \
           -parent_id $parent_id \
           -subject $subject \
           -content $content \
-          -format $format \
+	  -format $format \
           -user_id $displayed_user_id
 
+      # DRB: Black magic cache flush call which will disappear when list builder is
+      # rewritten to paginate internally rather than use the template paginator.
+      cache flush "messages,forum_id=$forum_id*"
+
       if {[empty_string_p $parent_id]} {
           set redirect_url "[ad_conn package_url]message-view?message_id=$message_id"
       } else {