Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v
diff -u -N -r1.2.2.2 -r1.2.2.3
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	26 Jul 2004 20:41:59 -0000	1.2.2.2
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	30 Jul 2004 02:06:47 -0000	1.2.2.3
@@ -18,7 +18,12 @@
 
 set actions [list]
 
-if { [template::util::is_true $permissions(post_p)] &&  ($forum(posting_policy) == "open" || $forum(posting_policy) == "moderated" ||  [template::util::is_true $permissions(admin_p)] ||  [template::util::is_true $permissions(moderate_p)] )  } {
+# new postings are allowed if
+
+# 1. Users can create new threads AND the posting policy is open or moderated
+# 2. User is a moderator or adminsitrator
+
+if {([forum::new_questions_allowed_p -forum_id $forum_id] && ($forum(posting_policy) == "open" || $forum(posting_policy) == "moderated")) ||  [template::util::is_true $permissions(admin_p)] ||  [template::util::is_true $permissions(moderate_p)]  } {
     lappend actions [_ forums.Post_a_New_Message] [export_vars -base "message-post" { forum_id }] {}
 }