From ba36bef4c0fa070e603e89e39daac2f6d2a402d5 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 7 Nov 2007 09:18:10 +0000
Subject: [PATCH] =?utf8?q?Verhindern,=20dass=20zwei=20von=20Lx-Office=20er?=
 =?utf8?q?zeugte=20Mails=20identische=20message=20IDs=20haben=20k=C3=B6nne?=
 =?utf8?q?n.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Mailer.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index 35cc57a75..234b6a784 100644
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -33,6 +33,8 @@ package Mailer;
 use SL::Common;
 use SL::Template;
 
+my $num_sent = 0;
+
 sub new {
   $main::lxdebug->enter_sub();
 
@@ -94,7 +96,8 @@ sub send {
 
   local (*IN, *OUT);
 
-  my $boundary =  time();
+  $num_sent++;
+  my $boundary = time() . "-$$-${num_sent}";
   $boundary    =  "LxOffice-$self->{version}-$boundary";
   my $domain   =  $self->{from};
   $domain      =~ s/(.*?\@|>)//g;
-- 
2.20.1