Index: openacs-4/packages/dotlrn/tcl/spam-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/spam-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/tcl/spam-procs.tcl	27 Oct 2014 16:41:16 -0000	1.10
+++ openacs-4/packages/dotlrn/tcl/spam-procs.tcl	7 Aug 2017 23:48:09 -0000	1.11
@@ -48,7 +48,7 @@
     }
 
     ad_proc -public send {
-        {-recepients:required}
+        {-recipients:required}
         {-from:required}
         {-real_from:required}
         {-subject:required}
@@ -57,7 +57,7 @@
     } {
         Send a spam to a set of users.
 
-        @param recepients a list of party_id's; the recepients.
+        @param recipients a list of party_id's; the recipients.
         @param from email address to set as "From"
         @param real_from real address of the sender to use in case of
                             errors.
@@ -70,9 +70,9 @@
         set subject [interpolate -values $message_values -text $subject]
         set message [interpolate -values $message_values -text $message]
 
-        # loop through all the recepients and send them the spam
+        # loop through all the recipients and send them the spam
         set errors ""
-        db_foreach select_recepient_info {} {
+        db_foreach select_recipient_info {} {
             # replace some values in the subject and the message
             set values [list]
             lappend values [list \{email\} $email]
@@ -88,7 +88,7 @@
                 append errors "
 <p>
 Failed to deliver to $email because:
-    [ad_quotehtml $errmsg]
+    [ns_quotehtml $errmsg]
 </p>
             "
             }
@@ -138,3 +138,9 @@
 
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: