Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.59.2.15 -r1.59.2.16
--- openacs-4/packages/forums/tcl/messages-procs.tcl	12 May 2020 14:30:15 -0000	1.59.2.15
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	12 May 2020 14:39:57 -0000	1.59.2.16
@@ -98,16 +98,17 @@
     set message_url ${url}message-view?message_id=$message(root_message_id)
     set forum_url ${url}forum-view?forum_id=$message(forum_id)
 
-    set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
-    if {$useScreenNameP eq 0 && $user_id ne 0} {
-        if { $user_id eq "" } {
-            set user_id $message(user_id)
-        }
-    } else {
-        set user_id [party::get_by_email \
-                         -email [ad_host_administrator]]
-    }
-    set notif_user $user_id
+    # This computations are not used... just commented for now.
+    # set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+    # if {$useScreenNameP eq 0 && $user_id ne 0} {
+    #     if { $user_id eq "" } {
+    #         set user_id $message(user_id)
+    #     }
+    # } else {
+    #     set user_id [party::get_by_email \
+    #                      -email [ad_host_administrator]]
+    # }
+    # set notif_user $user_id
 
     set attachments [attachments::get_attachments -object_id $message(message_id)]