Attempt to force ordering of emails when delivering several

2 files changed, 4 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 89aa735..aca364b 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- add a sleep when delivering mails to attempt to force ordering
+
 Version 0.18
 
 - close bugs automatically when processing advisories
diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm
index 7058d3b..c0f4047 100644
--- a/lib/MGA/Advisories.pm
+++ b/lib/MGA/Advisories.pm
@@ -471,6 +471,8 @@ sub send_adv_mail {
             report_log("Advisory mail for $adv sent");
             $advdb->{advisories}{$adv}{status}{mail_sent} = time();
             save_status($advdb, $adv);
+            # Attempt to make the mail delivery "in order"
+            sleep 1;
         } else {
             report_log("Error sending advisory mail $adv");
         }