From 50bbff48425929e5f0013938b9c5ad1ac75293de Mon Sep 17 00:00:00 2001 From: cjwatson <> Date: Thu, 27 Mar 2003 23:29:19 -0800 Subject: [PATCH] [project @ 2003-03-27 23:29:19 by cjwatson] Add "Precedence: bulk" to the mail headers of all acks, defined as anything that's sent back to $replyto (#36413). --- scripts/process.in | 14 +++++++++++++- scripts/service.in | 6 +++++- 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/scripts/process.in b/scripts/process.in index 4c0140cb..a7748675 100755 --- a/scripts/process.in +++ b/scripts/process.in @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: process.in,v 1.61 2003/03/27 19:37:21 cjwatson Exp $ +# $Id: process.in,v 1.62 2003/03/27 23:29:19 cjwatson Exp $ # # Usage: process nn # Temps: incoming/Pnn @@ -191,6 +191,7 @@ Subject: Unknown problem report $gBug#$tryref ($subject) Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} $s_msgid +Precedence: bulk X-$gProject-PR-Message: error You sent a message to the $gBug tracking system which gave (in the @@ -266,6 +267,7 @@ Subject: Message with no $gBug number ignored by $receivedat Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} $s_msgid +Precedence: bulk X-$gProject-PR-Message: error You sent a message to the $gProject $gBug tracking system old-style @@ -338,6 +340,7 @@ ${noticecc}Subject: $gBug#$ref: marked as forwarded ($s_subject) Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} $s_msgid +Precedence: bulk X-$gProject-PR-Message: forwarded $ref Your message dated $header{'date'} @@ -365,6 +368,7 @@ ${noticecc}Subject: $gBug#$ref: marked as done ($s_subject) Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} $s_msgid +Precedence: bulk X-$gProject-PR-Message: closed $ref Your message dated $header{'date'} @@ -429,6 +433,7 @@ Subject: Message with no $gBug number cannot be sent to submitter ! Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} $s_msgid +Precedence: bulk X-$gProject-PR-Message: error You sent a message to the $gProject $gBug tracking system send to $gBug @@ -473,6 +478,7 @@ Subject: Message with no Package: tag cannot be processed! Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} $s_msgid +Precedence: bulk X-$gProject-PR-Message: error Your message didn't have a Package: line at the start (in the @@ -693,6 +699,7 @@ Subject: $gBug#$ref: Acknowledgement of QUIET report Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} +Precedence: bulk X-$gProject-PR-Message: ack-quiet $ref Reply-To: $ref-quiet\@$gEmailDomain @@ -720,6 +727,7 @@ Subject: $gBug#$ref: Acknowledgement of maintainer-only report Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} +Precedence: bulk X-$gProject-PR-Message: ack-maintonly $ref Reply-To: $ref-maintonly\@$gEmailDomain @@ -744,6 +752,7 @@ Subject: $gBug#$ref: Acknowledgement ($subject) Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} +Precedence: bulk X-$gProject-PR-Message: ack $ref Reply-To: $ref\@$gEmailDomain @@ -776,6 +785,7 @@ Subject: $gBug#$ref: Info received and FILED only Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} +Precedence: bulk X-$gProject-PR-Message: ack-info-quiet $ref Reply-To: $ref-quiet\@$gEmailDomain @@ -801,6 +811,7 @@ Subject: $gBug#$ref: Info received for maintainer only Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} +Precedence: bulk X-$gProject-PR-Message: ack-info-maintonly $ref Reply-To: $ref-maintonly\@$gEmailDomain @@ -823,6 +834,7 @@ Subject: $gBug#$ref: Info received (was $subject) Message-ID: In-Reply-To: $header{'message-id'} References: $header{'message-id'} +Precedence: bulk X-$gProject-PR-Message: ack-info $ref Disabled-Doogie-Reply-To: $ref\@$gEmailDomain diff --git a/scripts/service.in b/scripts/service.in index 25c1df58..8c59c419 100755 --- a/scripts/service.in +++ b/scripts/service.in @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: service.in,v 1.71 2003/03/10 00:45:37 cjwatson Exp $ +# $Id: service.in,v 1.72 2003/03/27 23:29:19 cjwatson Exp $ # ^ more or less ^ # # Usage: service .nn @@ -654,6 +654,7 @@ ${maintccs}Subject: Processed: $header{'subject'} In-Reply-To: $header{'message-id'} References: $header{'message-id'} Message-ID: +Precedence: bulk ${transcript}Please contact me if you need assistance. @@ -975,6 +976,7 @@ Subject: $gProject $gBug help: $description References: $header{'message-id'} In-Reply-To: $header{'message-id'} Message-ID: +Precedence: bulk END $ok++; @@ -1001,6 +1003,7 @@ Subject: $gProject $gBugs information: $description References: $header{'message-id'} In-Reply-To: $header{'message-id'} Message-ID: +Precedence: bulk END $ok++; @@ -1099,6 +1102,7 @@ Subject: $gProject $gBugs information: $description References: $header{'message-id'} In-Reply-To: $header{'message-id'} Message-ID: +Precedence: bulk $description follows: -- 2.39.5