From d5db04e277a47d922606ff9599fa7044a6711288 Mon Sep 17 00:00:00 2001
From: "travis%sedsystems.ca" <>
Date: Mon, 24 Jan 2005 13:16:24 +0000
Subject: Bug 31314 : Support for "In-Reply-To" header in emails Patch by Marc
 Schumann <wurblzap@gmail.com>   r=jake   a=myk

---
 Bugzilla/BugMail.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'Bugzilla/BugMail.pm')

diff --git a/Bugzilla/BugMail.pm b/Bugzilla/BugMail.pm
index d9dbb770b..6b77f6d94 100644
--- a/Bugzilla/BugMail.pm
+++ b/Bugzilla/BugMail.pm
@@ -46,6 +46,13 @@ my $last_changed;
 
 my @excludedAddresses = ();
 
+my $sitespec = '@'.Param('urlbase');
+$sitespec =~ s/:\/\//\./; # Make the protocol look like part of the domain
+$sitespec =~ s/^([^:\/]+):(\d+)/$1/; # Remove a port number, to relocate
+if ($2) {
+    $sitespec = "-$2$sitespec"; # Put the port number back in, before the '@'
+}
+
 # disable email flag for offline debugging work
 my $enableSendMail = 1;
 
@@ -854,6 +861,11 @@ sub NewProcessOnePerson ($$$$$$$$$$$$$) {
     $substs{"reasonsheader"} = join(" ", @reasons);
     $substs{"reasonsbody"} = $reasonsbody;
     $substs{"space"} = " ";
+    if ($isnew) {
+        $substs{'threadingmarker'} = "Message-ID: <bug-$id-$userid$sitespec>";
+    } else {
+        $substs{'threadingmarker'} = "In-Reply-To: <bug-$id-$userid$sitespec>";
+    }
     
     my $template = Param("newchangedmail");
     
-- 
cgit v1.2.3-24-g4f1b