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.47 -r1.48
--- openacs-4/packages/forums/www/message-view.tcl	9 Nov 2008 23:29:26 -0000	1.47
+++ openacs-4/packages/forums/www/message-view.tcl	27 Apr 2009 19:36:21 -0000	1.48
@@ -41,7 +41,7 @@
 set permissions(moderate_p) [forum::security::can_moderate_message_p -message_id $message_id]
 if {!${permissions(moderate_p)}} {
     # Set post_p according to permissions ...
-    set permissions(post_p) [forum::security::can_post_forum_p -forum_id $message(forum_id)]
+    set permissions(post_p) [forum::security::can_post_message_p -message_id $message_id]
     # ... alternatively, we could use a parameter to behave like
     # in earlier versions just leave it is a reminder, if
     # someone still likes the old behavior.  This code should be