Index: openacs-4/packages/forums/www/message-view-flat.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/Attic/message-view-flat.adp,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/forums/www/message-view-flat.adp	22 Nov 2002 18:34:25 -0000	1.6.2.1
+++ openacs-4/packages/forums/www/message-view-flat.adp	26 Jan 2003 19:57:52 -0000	1.6.2.2
@@ -8,11 +8,6 @@
     <tr>
       <td colspan="4">
         <nobr>@notification_chunk@</nobr>
-<if @post_p@>
-        <nobr><small>[
-          <a href="message-post?forum_id=@forum_id@">Post a New Message</a>
-        ]</nobr></small>
-</if>
       </td>
     </tr>
   </table>
@@ -43,3 +38,9 @@
 </if>
 
 </center>
+
+<if @reply_url@ not nil>
+  <blockquote>
+    <a href="@reply_url@"><b>#forums.Post_a_Reply#</b></a>
+  </blockquote>
+</if>
Index: openacs-4/packages/forums/www/message-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.adp,v
diff -u -r1.10.2.1 -r1.10.2.2
--- openacs-4/packages/forums/www/message-view.adp	12 Dec 2002 00:35:02 -0000	1.10.2.1
+++ openacs-4/packages/forums/www/message-view.adp	26 Jan 2003 19:57:53 -0000	1.10.2.2
@@ -10,12 +10,6 @@
   <tr style="white-space: normal">
     <td align=left>
       @notification_chunk@
-      <br>
-      <if @post_p@>
-        <small>
-          [&nbsp;<a href="message-post?forum_id=@forum_id@">Post a New Message</a>.&nbsp;]
-        </small>
-      </if>
     </td>
     <td align=right>
       <formtemplate id="search">
@@ -71,3 +65,9 @@
 </if>
 
 </center>
+
+<if @reply_url@ not nil>
+  <blockquote>
+    <a href="@reply_url@"><b>#forums.Post_a_Reply#</b></a>
+  </blockquote>
+</if>
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.11.2.2 -r1.11.2.3
--- openacs-4/packages/forums/www/message-view.tcl	20 Jan 2003 14:29:04 -0000	1.11.2.2
+++ openacs-4/packages/forums/www/message-view.tcl	26 Jan 2003 19:57:53 -0000	1.11.2.3
@@ -111,6 +111,16 @@
     lappend context {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 {