Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	9 Jan 2008 13:19:10 -0000	1.16
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	9 Jan 2008 16:51:30 -0000	1.17
@@ -17,25 +17,25 @@
 
     <fullquery name="acs_mail_lite::sweeper.get_queued_message">
         <querytext>
-            select id
+            select message_id as id
             from acs_mail_lite_queue
-            where id=:id and (locking_server = '' or locking_server is NULL)
+            where message_id=:id and (locking_server = '' or locking_server is NULL)
         </querytext>
     </fullquery>
 
     <fullquery name="acs_mail_lite::sweeper.lock_queued_message">
         <querytext>
             update acs_mail_lite_queue
                set locking_server = :locking_server
-            where id=:id
+            where message_id=:id
         </querytext>
     </fullquery> 
 
 
     <fullquery name="acs_mail_lite::sweeper.delete_queue_entry">
         <querytext>
             delete from acs_mail_lite_queue
-            where id=:id
+            where message_id=:id
         </querytext>
     </fullquery>