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 -N -r1.59.2.20 -r1.59.2.21 --- openacs-4/packages/forums/tcl/messages-procs.tcl 29 May 2020 10:37:26 -0000 1.59.2.20 +++ openacs-4/packages/forums/tcl/messages-procs.tcl 29 May 2020 10:40:36 -0000 1.59.2.21 @@ -142,6 +142,16 @@ set href [ns_quotehtml $message_url] set message_html "

#forums.Message_content_withheld# #forums.To_view_message_follow_link# $href

" set message_text [ad_html_text_convert -from text/html -to text/plain -- $message_html] + } else { + # + # The resulting HTML messages is sent in total by + # notifications::send through [lang::util::localize...]. In case + # a forums message contains something looking like a localized + # message key, it will be substituted. One rough attempt is to add + # a zero width space after the "#" signs to make the regular + # expression searching for the message keys fail.... + # + regsub -all "#" $message_html "#\\​" message_html } set html_version "" @@ -154,15 +164,6 @@ } append html_version "#forums.Posted#: $message(posting_date)
" append html_version "\n
\n" - # - # The resulting HTML messages is sent in total by - # notifications::send through [lang::util::localize...]. In case - # a forums message contains something looking like a localized - # message key, it will be substituted. One rough attempt is to add - # a zero width space after the "#" signs to make the regular - # expression searching for the message keys fail.... - # - regsub -all "#" $message_html "#\\​" message_html append html_version $message_html append html_version "

"