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 -r1.10 -r1.11 --- openacs-4/packages/forums/lib/message/row.tcl 23 Oct 2008 12:09:02 -0000 1.10 +++ openacs-4/packages/forums/lib/message/row.tcl 9 Nov 2008 22:25:20 -0000 1.11 @@ -50,6 +50,10 @@ set allow_edit_own_p [parameter::get -parameter AllowUsersToEditOwnPostsP -default 0] set own_p [expr {$message(user_id) eq $viewer_id && $allow_edit_own_p}] -set notflat_p [expr {$presentation_type ne "flat"}] -set post_and_notflat_p [expr {$permissions(post_p) && $notflat_p}] -set any_action_p [expr { $post_and_notflat_p || $viewer_id || $moderate_p }] +if { [info exists preview] } { + set any_action_p 0 +} else { + set notflat_p [expr {$presentation_type ne "flat"}] + set post_and_notflat_p [expr {$permissions(post_p) && $notflat_p}] + set any_action_p [expr { $post_and_notflat_p || $viewer_id || $moderate_p }] +}