Index: openacs-4/packages/forums/lib/message/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/delete.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/forums/lib/message/delete.tcl	17 Dec 2003 15:45:29 -0000	1.1
+++ openacs-4/packages/forums/lib/message/delete.tcl	15 Mar 2005 20:06:44 -0000	1.2
@@ -14,14 +14,16 @@
 if {$confirm_p} {
     # Delete the message and all children
     forum::message::delete -message_id $message(message_id)
-    
+
     # Redirect to the forum
     ad_returnredirect "../forum-view?forum_id=$message(forum_id)"
     ad_script_abort
 }
 
 set message_id $message(message_id)
 
+set message(tree_level) 0
+
 set url_vars [export_url_vars message_id return_url]
 
 if {[exists_and_not_null alt_template]} {