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.45 -r1.46
--- openacs-4/packages/forums/www/message-post.tcl	27 Sep 2017 11:07:52 -0000	1.45
+++ openacs-4/packages/forums/www/message-post.tcl	11 Oct 2017 16:07:55 -0000	1.46
@@ -45,20 +45,24 @@
 if {$parent_id eq ""} {
     # no parent_id, therefore new thread
     # require thread creation privs
-    forum::security::require_post_forum -forum_id $forum_id
-
     forum::get -forum_id $forum_id -array forum
-    # check if we can post new threads
-    if {!$forum(new_questions_allowed_p)} {
-        forum::security::do_abort
+    
+    if {![forum::security::can_moderate_forum_p -forum_id $forum_id]} {
+        forum::security::require_post_forum -forum_id $forum_id
+        # check if we can post new threads
+        if {!$forum(new_questions_allowed_p)} {
+            forum::security::do_abort
+        }
     }
 } else {
     # get the parent message information
     forum::message::get -message_id $parent_id -array parent_message
     set parent_message(tree_level) 0
 
     # see if they're allowed to add to this thread
-    forum::security::require_post_forum -forum_id $parent_message(forum_id)
+    if {![forum::security::can_moderate_forum_p -forum_id $forum_id]} {
+        forum::security::require_post_forum -forum_id $parent_message(forum_id)
+    }
 
     forum::get -forum_id $parent_message(forum_id) -array forum
 }