diff options
author | travis%sedsystems.ca <> | 2005-01-24 13:16:24 +0000 |
---|---|---|
committer | travis%sedsystems.ca <> | 2005-01-24 13:16:24 +0000 |
commit | d5db04e277a47d922606ff9599fa7044a6711288 (patch) | |
tree | 24b90a4dc523d3269464247eecd22392e8798ffc /Bugzilla/BugMail.pm | |
parent | 6cea1a15a592fab986c361f3b539dc590e474e56 (diff) | |
download | bugs-d5db04e277a47d922606ff9599fa7044a6711288.tar bugs-d5db04e277a47d922606ff9599fa7044a6711288.tar.gz bugs-d5db04e277a47d922606ff9599fa7044a6711288.tar.bz2 bugs-d5db04e277a47d922606ff9599fa7044a6711288.tar.xz bugs-d5db04e277a47d922606ff9599fa7044a6711288.zip |
Bug 31314 : Support for "In-Reply-To" header in emails
Patch by Marc Schumann <wurblzap@gmail.com> r=jake a=myk
Diffstat (limited to 'Bugzilla/BugMail.pm')
-rw-r--r-- | Bugzilla/BugMail.pm | 12 |
1 files changed, 12 insertions, 0 deletions
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"); |