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.28 -r1.29 --- openacs-4/packages/forums/tcl/messages-procs.tcl 29 Jun 2004 10:18:30 -0000 1.28 +++ openacs-4/packages/forums/tcl/messages-procs.tcl 12 Jul 2004 14:50:00 -0000 1.29 @@ -69,20 +69,16 @@ {-message_id:required} } { # Select all the important information - get -message_id $message_id -array message + forum::message::get -message_id $message_id -array message set forum_id $message(forum_id) set url "[ad_url][db_string select_forums_package_url {}]" set attachments [attachments::get_attachments -object_id $message(message_id)] - if {$message(html_p) == "t"} { - set message_html $message(content) - set message_text [ad_html_text_convert -from html -to text $message(content)] - } else { - set message_text $message(content) - set message_html [ad_html_text_convert -from text -to html $message(content)] - } + set message_text [ad_html_text_convert -from $message(format) -to text/plain -- $message(content)] + set message_html [ad_html_text_convert -from $message(format) -to text/html -- $message(content)] + set html_version "" append html_version "Forum: $message(forum_name)
\n" append html_version "Thread: $message(root_subject)
\n"