Index: openacs-4/packages/forums/tcl/messages-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/tcl/messages-procs-oracle.xql	29 May 2002 21:40:10 -0000	1.1
+++ openacs-4/packages/forums/tcl/messages-procs-oracle.xql	1 Jun 2002 19:34:39 -0000	1.2
@@ -5,7 +5,7 @@
 <fullquery name="forum::message::get.select_message">
 <querytext>
 select message_id, forum_id, subject, content, person.name(user_id) as user_name, 
-party.email(user_id) as user_email,
+party.email(user_id) as user_email, user_id,
 forums_forum.name(forum_id) as forum_name, 
 forums_message.root_message_id(forums_messages.message_id) as root_message_id,
 (select subject from forums_messages fm2 
Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums/www/message-post.tcl	1 Jun 2002 19:33:42 -0000	1.3
+++ openacs-4/packages/forums/www/message-post.tcl	1 Jun 2002 19:34:33 -0000	1.4
@@ -78,7 +78,11 @@
             -content $content \
             -html_p $html_p
 
-    set message_view_url "[ad_conn package_url]message-view?message_id=$message_id"
+    if {[empty_string_p $parent_id]} {
+        set message_view_url "[ad_conn package_url]message-view?message_id=$message_id"
+    } else {
+        set message_view_url "[ad_conn package_url]message-view?message_id=$parent_id"
+    }
 
     if {![empty_string_p $subscribe_p] && $subscribe_p && [empty_string_p $parent_id]} {
         set notification_url [notification::display::subscribe_url -type forums_message_notif -object_id $message_id -url $message_view_url -user_id [ad_conn user_id]]