Index: openacs-4/packages/forums/lib/message/post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v
diff -u -r1.3.2.3 -r1.3.2.4
--- openacs-4/packages/forums/lib/message/post.tcl	9 Aug 2004 17:49:21 -0000	1.3.2.3
+++ openacs-4/packages/forums/lib/message/post.tcl	9 Aug 2004 19:51:19 -0000	1.3.2.4
@@ -107,11 +107,13 @@
 
 	if {$format == "html"} {
 	    set content "$content"
+	    
 	} elseif {$format == "pre"} {
 	    set content [ad_text_to_html $content]
-	    
+	    set format "html"
 	} else {
 	    set content [ad_quotehtml $content]
+	    set format "html"
 	}
 
         set exported_vars [export_vars -form {message_id forum_id parent_id subject {message_body $content} format confirm_p subject.spellcheck content.spellcheck anonymous_p attach_p}]
@@ -160,7 +162,7 @@
           -parent_id $parent_id \
           -subject $subject \
           -content $content \
-	  -format "html" \
+	  -format "text/html" \
           -user_id $displayed_user_id
 
       if {[empty_string_p $parent_id]} {