Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/spam.tcl 21 Jan 2002 07:12:02 -0000 1.2
+++ openacs-4/packages/dotlrn/www/spam.tcl 21 Jan 2002 08:17:27 -0000 1.3
@@ -110,6 +110,7 @@
regsub -all {
@@ -167,11 +167,15 @@
if {![empty_string_p $errors]} {
set error_subject "There were errors spamming community \"$community_name\""
set error_message "
-There were errors spamming community \"$community_name\". The attempted
-message was:
+
+There were errors spamming community \"$community_name\".
+
+The attempted message was:
+
+
Subject
@@ -182,10 +186,15 @@
$message
+The errors were: +
-The errors were: $errors ++$errors +
" if {[catch {ns_sendmail $sender_email $sender_email $error_subject $error_message} errmsg]} {