Use get_addresses to parse X-Debbugs-Cc: to allow multiple Cc:'s

(closes: #514183)

diff --git a/debian/changelog b/debian/changelog
index 5dcd5d649b6f2048817a8b0ca292baca3d74d3e7..234415217c749d70501ae0ba896cf69186e70504 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -240,6 +240,8 @@ debbugs (2.4.2) UNRELEASED; urgency=low
   * Add Date headers if missing (closes: #458757)
   * Indicate what machine has built webpages (closes: #507022)
   * Indicate the update location of source (closes: #512306)
+  * Use get_addresses to parse X-Debbugs-Cc: to allow multiple Cc:'s
+    (closes: #514183)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100

diff --git a/scripts/process b/scripts/process
index 11c692ed6524cd731c118f36f5731b03b4ae7720..e3243caa3c60093babf8ecd4729e983d5e7ffe12 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -13,7 +13,7 @@ use IO::File;
 
 use MIME::Parser;
 use Debbugs::MIME qw(decode_rfc1522 create_mime_message getmailbody);
-use Debbugs::Mail qw(send_mail_message encode_headers);
+use Debbugs::Mail qw(send_mail_message encode_headers get_addresses);
 use Debbugs::Packages qw(getpkgsrc);
 use Debbugs::User qw(read_usertags write_usertags);
 use Debbugs::Common qw(:lock get_hashname);
@@ -634,7 +634,7 @@ my $newsubject= $subject;  $newsubject =~ s/^$gBug#$ref:*\s*//;
 
 my $xcchdr= $header{ 'x-debbugs-cc' } || '';
 if ($xcchdr =~ m/\S/) {
-    push(@resentccs,$xcchdr);
+    push(@resentccs,get_addresses($xcchdr));
     $resentccexplain.= fill_template('mail/xdebbugscc',
                                     {xcchdr => $xcchdr},
                                    );