Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	9 Jan 2008 16:51:30 -0000	1.12
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	8 Sep 2008 20:26:43 -0000	1.13
@@ -21,7 +21,8 @@
                    mime_type,
                    no_callback_p,
                    extraheaders,
-                   use_sender_p     
+                   use_sender_p,
+                   object_id
                   )
             values
                   (nextval('acs_mail_lite_id_seq'),
@@ -39,7 +40,8 @@
                    :mime_type,
                    (case when :no_callback_p = '1' then TRUE else FALSE end),
                    :extraheaders,
-                   (case when :use_sender_p = '1' then TRUE else FALSE end)          
+                   (case when :use_sender_p = '1' then TRUE else FALSE end),
+                   :object_id
                   )
         </querytext>
     </fullquery>
@@ -82,7 +84,8 @@
                    mime_type,
                    (case when no_callback_p = TRUE then 1 else 0 end) as no_callback_p,
                    extraheaders,
-                   (case when use_sender_p = TRUE then 1 else 0 end) as use_sender_p
+                   (case when use_sender_p = TRUE then 1 else 0 end) as use_sender_p,
+                   object_id
             from acs_mail_lite_queue
             where locking_server = '' or locking_server is NULL
         </querytext>