Index: openacs-4/packages/forums/www/message-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/Attic/message-chunk.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/forums/www/message-chunk.tcl	30 Nov 2002 17:35:39 -0000	1.6
+++ openacs-4/packages/forums/www/message-chunk.tcl	7 Jan 2003 18:58:09 -0000	1.7
@@ -24,6 +24,15 @@
 if {![exists_and_not_null moderate_p]} { set moderate_p 0 }
 if {![exists_and_not_null forum_moderated_p]} {set forum_moderated_p 0}
 
+if { [string is false $message(html_p)] } {
+    set message(content) [ad_text_to_html $message(content)]
+}
+
+# convert emoticons to images if the parameter is set
+if { [string is true [parameter::get -parameter DisplayEmoticonsAsImagesP -default 0]] } {
+    set message(content) [forum::format::emoticons -content $message(content)]
+}
+
 # JCD: display subject only if changed from the root subject
 if {![info exists root_subject]} {
     set display_subject_p 1