Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.108.2.25 -r1.108.2.26
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	14 Mar 2022 13:44:04 -0000	1.108.2.25
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	16 Mar 2022 14:36:24 -0000	1.108.2.26
@@ -383,8 +383,7 @@
         Send messages in the acs_mail_lite_queue table.
     } {
         # 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
+        if {[nsv_incr acs_mail_lite send_mails_p] != 1} {
             return
         }
 
@@ -427,7 +426,7 @@
                 }
             }
         } finally {
-            nsv_incr acs_mail_lite send_mails_p -1
+            nsv_unset acs_mail_lite send_mails_p
         }
     }