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.2 -r1.3
--- openacs-4/packages/dotlrn/www/spam-2.tcl	17 May 2002 19:14:00 -0000	1.2
+++ openacs-4/packages/dotlrn/www/spam-2.tcl	19 May 2002 15:13:41 -0000	1.3
@@ -31,6 +31,8 @@
 }
 
 form get_values spam_message subject message
+set subject [ad_quotehtml $subject]
+set message [ad_quotehtml $message]
 
 set spam_name [bulk_mail::parameter -parameter PrettyName -default Spam]
 set context_bar [list [list $referer Admin] "$spam_name Community"]