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.3.2.3 -r1.3.2.4
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	24 May 2006 11:56:18 -0000	1.3.2.3
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	20 Nov 2006 20:00:25 -0000	1.3.2.4
@@ -110,6 +110,8 @@
         forum_id {}
     }
 
+set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+
 db_multirow -extend { 
     last_child_post_pretty
     posting_date_pretty
@@ -125,7 +127,12 @@
     set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
 
     set message_url [export_vars -base "${base_url}message-view" { message_id }]
-    set user_url [export_vars -base "${base_url}user-history" { user_id }]
+    if { $useScreenNameP } {
+	set user_name $screen_name
+	set user_url ""
+    } else {
+	set user_url [export_vars -base "${base_url}user-history" { user_id }]
+    }
     set n_messages_pretty [lc_numeric $n_messages]
 
     switch $state {