fix: Change way that content disposition accessed (#101)

Azure · Jan 11, 2022 · 8a8d0e2 · 8a8d0e2
1 parent 1c29cb1
commit 8a8d0e2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ms_outlook_email.R b/R/ms_outlook_email.R
@@ -548,7 +548,7 @@ make_reply_comment.blastula_message <- function(comment)
 make_reply_comment.envelope <- function(comment)
 {
     parts <- comment$parts
-    inline <- which(sapply(parts, function(p) p$header$content_disposition == "inline"))
+    inline <- which(sapply(parts, function(p) p$disposition == "inline"))
     if(length(inline) > 1)
         warning("Multiple inline sections found, only the first will be used", call.=FALSE)
     req <- if(!is_empty(inline))