-- acs-mail-lite sweeper should also send mails created by deprecated package acs-mail

70cd3aa2 · Frank Bergmann · e13c8cfb · 70cd3aa2
Commit 70cd3aa2 authored Feb 17, 2012 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

acs-mail-lite-procs.tcl tcl/acs-mail-lite-procs.tcl +4 -0

No files found.
--- a/tcl/acs-mail-lite-procs.tcl
+++ b/tcl/acs-mail-lite-procs.tcl
@@ -280,6 +280,10 @@ namespace eval acs_mail_lite {
    ad_proc -private sweeper {} {
        Send messages in the acs_mail_lite_queue table.
    } {
+
+	# patch:send mails created by deprecated package acs-mail
+        acs_mail_process_queue
+
        # Make sure that only one thread is processing the queue at a time.
        if {[nsv_incr acs_mail_lite send_mails_p] > 1} {
            nsv_incr acs_mail_lite send_mails_p -1