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.10 -r1.11
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	14 Jun 2007 06:43:56 -0000	1.10
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	15 Jun 2007 18:58:54 -0000	1.11
@@ -15,14 +15,10 @@
 
 set useReadingInfo [forum::use_ReadingInfo_p]
 if { $useReadingInfo } {
-    set unread_or_new_query_clause {
-	case when fi.reading_date is null then 't' else 'f' end as unread_p
-    }
-     set unread_join {
-	left join forums_reading_info fi on fm.message_id=fi.root_message_id and fi.user_id = :user_id
-    }
+    set unread_or_new_query_clause [db_map unread_query]
+    set unread_join [db_map unread_join]
 } else {
-    set unread_or_new_query_clause [db_map unread_or_new_query]
+    set unread_or_new_query_clause [db_map new_query]
     set unread_join ""
 }
 if {![info exists base_url]} {