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.14 -r1.15
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	9 Apr 2007 06:18:17 -0000	1.14
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	9 Jan 2008 12:11:55 -0000	1.15
@@ -53,13 +53,37 @@
    </fullquery>
 
 
-    <fullquery name="acs_mail_lite::sweeper.delete_queue_entry">
+    <fullquery name="acs_mail_lite::sweeper.get_queued_message">
         <querytext>
-            delete
+            select id
             from acs_mail_lite_queue
-            where message_id = :message_id
+            where 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
+        </querytext>
+    </fullquery> 
 
+
+    <fullquery name="acs_mail_lite::sweeper.delete_queue_entry">
+        <querytext>
+            delete from acs_mail_lite_queue
+            where id=:id
+        </querytext>
+    </fullquery>
+
+  <fullquery name="acs_mail_lite::send_immediately.get_file_info">
+    <querytext>
+      select r.mime_type,r.title, r.content as filename, i.name
+      from cr_revisions r, cr_items i
+      where r.revision_id = i.latest_revision
+        and i.item_id in ([join $item_ids ","])
+    </querytext>
+  </fullquery>
+
 </queryset>