Index: openacs-4/packages/download/www/admin/spam-users-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/spam-users-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/download/www/admin/spam-users-2.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/download/www/admin/spam-users-2.tcl	13 Aug 2001 21:37:31 -0000	1.2
@@ -36,14 +36,12 @@
 set count 0
 foreach to_user_id $userid_list {
     db_exec_plsql sendmail {
-        begin
-           :1 := nt.post_request(
-                party_from => :user_id,
-                party_to => :to_user_id,
-                expand_group => 'f',
-                subject => :subject,
-                message => :msgbody);
-        end;
+        select acs_mail_nt__post_request (
+		    :user_id,    -- p_party_from
+		    :to_user_id, -- p_party_to
+		    :subject,    -- p_subject
+		    :msgbody     -- p_message
+		  );
     }
     incr count
 }