Index: openacs-4/packages/forums/lib/message/post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/forums/lib/message/post.tcl	22 May 2007 09:42:08 -0000	1.13
+++ openacs-4/packages/forums/lib/message/post.tcl	6 Jun 2007 17:02:43 -0000	1.14
@@ -185,14 +185,10 @@
         );
     }]
 }
-
+            # VGUERRA Redirecting to the first message ALWAYS
+            forum::message::get -message_id $message_id -array msg
+            set redirect_url "[ad_conn package_url]message-view?message_id=$msg(root_message_id)" 
 	    
-	    if {[empty_string_p $parent_id]} {
-		set redirect_url "[ad_conn package_url]message-view?message_id=$message_id"
-	    } else {
-		set redirect_url "[ad_conn package_url]message-view?message_id=$parent_id"
-	    }
-	    
 	    # Wrap the notifications URL
 	    if {![empty_string_p $subscribe_p] && $subscribe_p && [empty_string_p $parent_id]} {
 		set notification_url [notification::display::subscribe_url \
Index: openacs-4/packages/forums/lib/message/row.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/row.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/forums/lib/message/row.tcl	5 Jun 2007 17:33:50 -0000	1.7
+++ openacs-4/packages/forums/lib/message/row.tcl	6 Jun 2007 17:02:43 -0000	1.8
@@ -17,6 +17,10 @@
     set rownum 1
 }
 
+if {![exists_and_not_null presentation_type]} {
+    set presentation_type ""
+}
+
 set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
 set message(screen_name) $screen_name
 
Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -N -r1.38 -r1.39
--- openacs-4/packages/forums/tcl/messages-procs.tcl	22 May 2007 09:42:09 -0000	1.38
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	6 Jun 2007 17:02:43 -0000	1.39
@@ -203,7 +203,7 @@
     {-message_id:required}
     {-array:required}
 } {
-    get the fields for a forum
+    get the fields for a message
 } {
     # Select the info into the upvar'ed Tcl Array
     upvar $array row