Index: openacs.org-dev/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs.org-dev/packages/forums/www/message-post.tcl	7 Nov 2002 08:40:59 -0000	1.11
+++ openacs.org-dev/packages/forums/www/message-post.tcl	20 Dec 2002 13:22:58 -0000	1.12
@@ -136,6 +136,11 @@
         -content $content \
         -html_p $html_p
 
+    # Flush paginator cache
+    forum::get -forum_id $forum_id -array forum
+    cache flush "paginated_messages:$forum(name):row_ids"
+    cache flush "paginated_messages:$forum(name):context_ids"
+    
     if {[empty_string_p $parent_id]} {
         set redirect_url "[ad_conn package_url]message-view?message_id=$message_id"
     } else {