From 1d0f1aea1849f74e3c165e27805b99d629f9f79f Mon Sep 17 00:00:00 2001 From: hornik Date: Wed, 28 Aug 2024 13:03:50 +0000 Subject: [PATCH] Send CRAN package/mirror maintainer emails to CRAN with maintainers in Bcc. git-svn-id: https://svn.r-project.org/R/trunk@87068 00db46b3-68df-0310-9c12-caf00c1e9a41 --- src/library/tools/R/CRANtools.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/library/tools/R/CRANtools.R b/src/library/tools/R/CRANtools.R index fb2e80eb42..3127116e3e 100644 --- a/src/library/tools/R/CRANtools.R +++ b/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"])