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 -r1.2.2.3 -r1.2.2.4
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	30 Jul 2004 02:06:47 -0000	1.2.2.3
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	4 Dec 2004 03:06:55 -0000	1.2.2.4
@@ -13,7 +13,9 @@
 
 set query messages_select
 if { $moderate_p } {
-    set query messages_select_moderator
+    set replies_view forums_messages
+} else {
+    set replies_view forums_messages_approved
 }
 
 set actions [list]
@@ -38,6 +40,8 @@
 template::list::create \
     -name messages \
     -multirow messages \
+    -page_size 30 \
+    -page_query_name messages_select_paginate \
     -pass_properties { moderate_p } \
     -actions $actions \
     -elements {
@@ -106,7 +110,7 @@
     user_url
     n_messages_pretty
     state_pretty
-} messages $query {} {
+} messages messages_select {} {
     set last_child_post_ansi [lc_time_system_to_conn $last_child_post_ansi]
     set last_child_post_pretty [lc_time_fmt $last_child_post_ansi "%x %X"]