Fix issues with HTML bodies

r-lib · Apr 1, 2016 · d5db6a7 · d5db6a7
1 parent cec565a
commit d5db6a7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/mime.R b/R/mime.R
@@ -193,7 +193,7 @@ as.character.mime <- function(x, newline="\r\n") {
   )
   headers <- format_headers(x$header, newline = newline)
 
-  paste0(headers, sep, encoded_body, end)
+  paste0(headers, encoded_body, end)
 }
 
 parse_content_type <- function(header) {
@@ -221,7 +221,7 @@ format_headers <- function(headers, newline) {
   if(length(keep_headers) %==% 0L){
     return(NULL)
   }
-  paste0(paste(sep = ": ", collapse = newline, names(keep_headers), keep_headers), newline)
+  paste0(paste(sep = ": ", collapse = newline, names(keep_headers), keep_headers), newline, newline)
 }
 
 with_defaults <- function(defaults, ...){