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 -r1.15 -r1.16
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	20 Nov 2017 13:26:55 -0000	1.15
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	17 Feb 2018 17:08:31 -0000	1.16
@@ -50,6 +50,26 @@
         </querytext>
     </fullquery>
 
+
+   <fullquery name="acs_mail_lite::log_mail_sending.record_mail_sent">
+     <querytext>
+
+       update acs_mail_lite_mail_log
+       set last_mail_date = current_timestamp
+       where party_id = :user_id
+
+     </querytext>
+   </fullquery>
+
+   <fullquery name="acs_mail_lite::log_mail_sending.insert_log_entry">
+     <querytext>
+
+       insert into acs_mail_lite_mail_log (party_id, last_mail_date)
+       values (:user_id, current_timestamp)
+
+     </querytext>
+   </fullquery>
+
     <fullquery name="acs_mail_lite::sweeper.get_queued_messages">
         <querytext>
             select