Send CRAN package/mirror maintainer emails to CRAN with maintainers i…

…n Bcc.

git-svn-id: https://svn.r-project.org/R/trunk@87068 00db46b3-68df-0310-9c12-caf00c1e9a41

src/library/tools/R/CRANtools.R

@@ -381,12 +381,12 @@ function(mirrors, db = NULL, collapse = TRUE)
  addresses <- gsub("[[:space:]]*#[[:space:]]*", "@", addresses)
  to <- unique(unlist(strsplit(addresses,
  "[[:space:]]*,[[:space:]]*")))
- head <- list("To" = to,
- "CC" = "CRAN@R-project.org",
+ head <- list("To" = "CRAN@R-project.org",
+ "Bcc" = to,
  "Subject" = "CRAN mirrors maintained by you",
  "Reply-To" = "CRAN@R-project.org")
  if(collapse) {
- head$To <- paste(head$To, collapse = ",\n ")
+ head$Bcc <- paste(head$Bcc, collapse = ",\n ")
  head <- sprintf("%s: %s", names(head), unlist(head))
  }
  len <- length(addresses)
@@ -563,12 +563,12 @@ function(packages, db = NULL, collapse = TRUE)
  ind <- match(packages, db[, "Package"])
  addresses <- db[ind, "Address"]
  to <- sort(unique(addresses))
- head <- list("To" = to,
- "CC" = "CRAN@R-project.org",
+ head <- list("To" = "CRAN@R-project.org",
+ "Bcc" = to,
  "Subject" = "CRAN packages maintained by you",
  "Reply-To" = "CRAN@R-project.org")
  if(collapse) {
- head$To <- paste(head$To, collapse = ",\n ")
+ head$Bcc <- paste(head$Bcc, collapse = ",\n ")
  head <- sprintf("%s: %s", names(head), unlist(head))
  }
  lst <- split(db[ind, "Package"], db[ind, "Maintainer"])