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.13.2.3 -r1.13.2.4
--- openacs-4/packages/dotlrn/tcl/spam-procs.tcl	24 Feb 2021 11:02:52 -0000	1.13.2.3
+++ openacs-4/packages/dotlrn/tcl/spam-procs.tcl	24 Feb 2021 11:13:53 -0000	1.13.2.4
@@ -82,7 +82,7 @@
             lappend values \{email\} "$email"
             lappend values \{first_names\} "$first_names"
             lappend values \{last_name\} "$last_name"
-            lappend values \{from\} "$from"
+            lappend values \{from_addr\} "$from"
 
             set subject [string map $values $subject]
             set message [string map $values $message]
Index: openacs-4/packages/dotlrn/www/admin/users-spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-spam.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/dotlrn/www/admin/users-spam.tcl	29 Jun 2018 17:27:19 -0000	1.9
+++ openacs-4/packages/dotlrn/www/admin/users-spam.tcl	24 Feb 2021 11:13:53 -0000	1.9.2.1
@@ -87,7 +87,7 @@
     #      doesn't have to wait for the emails to get sent out.
 
     set message_values [list]
-    lappend message_values [list {<sender_email>} $from]
+    lappend message_values <sender_email> "$from"
 
     spam::send \
         -recipients $users \