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 -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 {
Index: openacs.org-dev/packages/forums/www/moderate/message-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/moderate/message-delete.adp,v
diff -u -r1.3 -r1.4
--- openacs.org-dev/packages/forums/www/moderate/message-delete.adp	20 Dec 2002 12:25:44 -0000	1.3
+++ openacs.org-dev/packages/forums/www/moderate/message-delete.adp	20 Dec 2002 13:23:10 -0000	1.4
@@ -1,6 +1,6 @@
 <master src="../master">
 <property name="title">Confirm Delete: @message.subject@</property>
-<property name="context"></property>
+<property name="context">@context@</property>
 
 <table width="95%">
   
Index: openacs.org-dev/packages/forums/www/moderate/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/moderate/message-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs.org-dev/packages/forums/www/moderate/message-delete.tcl	5 Sep 2002 17:27:49 -0000	1.2
+++ openacs.org-dev/packages/forums/www/moderate/message-delete.tcl	20 Dec 2002 13:23:10 -0000	1.3
@@ -20,13 +20,19 @@
 # Select the stuff
 forum::message::get -message_id $message_id -array message
 
+set context [list [list "../forum-view?[export_vars { { forum_id $message(forum_id) } }]" "$message(forum_name)"] [list "../message-view?[export_vars { message_id }]" "One Message"] "Delete"]
+
 # Confirm?
 if {!$confirm_p} {
     set url_vars [export_url_vars message_id return_url]
     ad_return_template
 } else {
     # Delete the message and all children
     forum::message::delete -message_id $message_id
+
+    # Flush paginator cache
+    cache flush "paginated_messages:$message(forum_name):row_ids"
+    cache flush "paginated_messages:$message(forum_name):context_ids"
     
     # Redirect to the forum
     ad_returnredirect "../forum-view?forum_id=$message(forum_id)"