Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -N -r1.233 -r1.234 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 19 Nov 2018 14:32:29 -0000 1.233 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 21 Nov 2018 09:56:37 -0000 1.234 @@ -4665,6 +4665,9 @@ {-chat_id ""} {-mode ""} {-path ""} + -login_messages_p + -logout_messages_p + -timewindow }} } chat instproc render {} { @@ -4673,7 +4676,22 @@ # make the chat just for including page set chat_id [${:__including_page} item_id] } - set r [::xowiki::Chat login -chat_id $chat_id -mode $mode -path $path] + set chat_cmd [list \ + ::xowiki::Chat login \ + -chat_id $chat_id \ + -mode $mode \ + -path $path] + # We don't want to override Chat class default with our own and + # therefore we build the command dynamically depending if these + # variables are there or not. + set optional_vars [list login_messages_p logout_messages_p timewindow] + foreach var $optional_vars { + if {[info exists $var]} { + lappend chat_cmd -${var} [set $var] + } + } + set r [{*}$chat_cmd] + #ns_log notice chat=>$r return $r