Index: commit-email.pl.in
===================================================================
--- commit-email.pl.in	(revision 31772)
+++ commit-email.pl.in	(working copy)
@@ -142,7 +142,8 @@
 # This hash matches the command line option to the hash key in the
 # project.  If a key exists but has a false value (''), then the
 # command line option is allowed but requires special handling.
-my %opt_to_hash_key = ('--from' => 'from_address',
+my %opt_to_hash_key = ('-c'     => '',
+                       '--from' => 'from_address',
                        '--revprop-change' => '',
                        '-d'     => '',
                        '-h'     => 'hostname',
@@ -222,6 +223,10 @@
               {
                 $current_project->{summary} = 1;
               }
+            elsif ($arg eq '-c')
+              {
+                push(@{$current_project->{cc_addresses}}, $value);
+              }
             else
               {
                 die "$0: internal error:"
@@ -531,8 +536,9 @@
     next unless $match;
 
     my @email_addresses = @{$project->{email_addresses}};
-    my $userlist        = join(' ', @email_addresses);
+    my $userlist        = join(' ', (@email_addresses, @cc_addresses));
     my $to              = join(', ', @email_addresses);
+    my $cc              = join(', ', @cc_addresses);
     my $from_address    = $project->{from_address};
     my $hostname        = $project->{hostname};
     my $log_file        = $project->{log_file};
@@ -573,6 +579,7 @@
     $formatted_date = strftime('%a, %e %b %Y %X %z', localtime());
     push(@head, "Date: $formatted_date\n");
     push(@head, "To: $to\n");
+    push(@head, "CC: $cc\n");
     push(@head, "From: $mail_from\n");
     push(@head, "Subject: $subject\n");
     push(@head, "Reply-to: $reply_to\n") if $reply_to;
@@ -692,6 +699,7 @@
       "  $0 --revprop-change REPOS REVNUM USER PROPNAME [-d diff_file] \\\n",
       "    [[-m regex] [options] [email_addr ...]] ...\n",
       "options are:\n",
+      "  -c                    Email address for 'CC:' (repeat for multiple CC)\n",
       "  -m regex              Regular expression to match committed path\n",
       "  --from email_address  Email address for 'From:' (overrides -h)\n",
       "  -h hostname           Hostname to append to author for 'From:'\n",
@@ -733,7 +741,8 @@
 # matches any modifications to the repository.
 sub new_project
 {
-  return {email_addresses => [],
+  return {cc_addresses    => [],
+          email_addresses => [],
           from_address    => '',
           hostname        => '',
           log_file        => '',