Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/forums/www/message-view.tcl	10 Jan 2003 13:58:21 -0000	1.16
+++ openacs-4/packages/forums/www/message-view.tcl	26 Jan 2003 19:52:35 -0000	1.17
@@ -115,6 +115,16 @@
     lappend context [_ forums.One_Thread]
 }
 
+if { $post_p || [ad_conn user_id] == 0 } {
+    set rowcount ${responses:rowcount}
+    if { $rowcount > 0 } {
+        set last_message_id [set "responses:${rowcount}(message_id)"]
+    } else {
+        set last_message_id $message(message_id)
+    }
+    set reply_url "message-post?[export_vars { { parent_id $last_message_id } }]"
+}
+
 if {[string equal $forum(presentation_type) flat]} {
     ad_return_template "message-view-flat"
 } else {