From 9a5d55da0dca37a8e921c411264b4187ba50e3e9 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Sun, 6 Aug 2023 16:25:06 +0200
Subject: mod/notification-email: introduce $PurgeEmailQueue

... to purge the queue and remove the scheduler.
---
 mod/notification-email.rsc | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'mod')

diff --git a/mod/notification-email.rsc b/mod/notification-email.rsc
index 7be3abe..e266201 100644
--- a/mod/notification-email.rsc
+++ b/mod/notification-email.rsc
@@ -10,6 +10,7 @@
 :global LogForwardFilterLogForwarding;
 :global NotificationEMailSubject;
 :global NotificationFunctions;
+:global PurgeEMailQueue;
 :global QuotedPrintable;
 :global SendEMail;
 :global SendEMail2;
@@ -156,6 +157,14 @@
   }
 }
 
+# purge the e-mail queue
+:set PurgeEMailQueue do={
+  :global EmailQueue;
+
+  /system/scheduler/remove [ find where name="\$FlushEmailQueue" ];
+  :set EmailQueue;
+}
+
 # convert string to quoted-printable
 :global QuotedPrintable do={
   :local Input [ :tostr $1 ];
-- 
cgit v1.2.3-70-g09d2