Index: openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.xql	15 May 2002 22:07:52 -0000	1.1
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.xql	28 Aug 2003 09:41:53 -0000	1.2
@@ -12,7 +12,7 @@
     <fullquery name="bulk_mail::sweep.mark_message_sent">      
         <querytext>
             update bulk_mail_messages
-            set sent_p = 't'
+            set status = 'sent'
             where bulk_mail_id = :bulk_mail_id
         </querytext>
     </fullquery>