Index: openacs-4/packages/dotlrn/www/spam-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-2.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/dotlrn/www/spam-2.tcl	9 Aug 2002 18:39:26 -0000	1.4
+++ openacs-4/packages/dotlrn/www/spam-2.tcl	17 Oct 2002 12:17:40 -0000	1.4.2.1
@@ -30,10 +30,21 @@
     portal_id:onevalue
 }
 
-form get_values spam_message subject message
-set subject [ad_quotehtml $subject]
-set message [ad_quotehtml $message]
+form get_values spam_message subject message message_type
 
+# the following is just to make sure the previewing works ok.
+# in case the user types a html message and chooses the messsage 
+# to be a plain text type or vice-versa.
+if {$message_type == "html"} {
+	if [ad_looks_like_html_p $message] {
+	     set preview_message "<pre>$message</pre>"
+           } else {
+	     set preview_message "$message"
+        }
+} else {
+	set preview_message [ad_quotehtml $message]
+}
+
 set spam_name [bulk_mail::parameter -parameter PrettyName -default Spam]
 set context_bar [list [list $referer Admin] "$spam_name Community"]
 set community_id [dotlrn_community::get_community_id]