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.5 -r1.6
--- openacs-4/packages/dotlrn/www/spam-2.tcl	23 Oct 2002 12:38:39 -0000	1.5
+++ openacs-4/packages/dotlrn/www/spam-2.tcl	4 Dec 2002 09:51:04 -0000	1.6
@@ -30,12 +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
 
-set spam_name [bulk_mail::parameter -parameter PrettyName -default Spam]
-set context_bar [list [list $referer Admin] "$spam_name Community"]
+# 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 context_bar [list [list $referer Admin] "[_ dotlrn.Spam_Community]"]
 set community_id [dotlrn_community::get_community_id]
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
-