Encoding of retrieved messages

[SimonCoulombe]

Hi Jim,

I am trying to retrieve messages and run some regexp on the content. I am retrieving the body of my message as follow:

my_message = message(id = "myid", format="full")
body(my_message)

The issue I have is that all the French characters are broken and replaced by funky symbols. Where can I set the encoding to fix this?

Fantastic package, thanks for it.

[SimonCoulombe]

This works for me:

my_base64url_decode_to_char <- function(x) { iconv(rawToChar(base64decode(gsub("_", "/", gsub("-", "+", x)))), from="UTF-8", to="latin1") }

getAnywhere("base64url_decode_to_char")
unlockBinding("base64url_decode_to_char", getNamespace("gmailr"))
assign("base64url_decode_to_char", my_base64url_decode_to_char, getNamespace("gmailr"))

---

edit: this worked once. I have output to prove it... but now it doesnt.
When I run body() I now get the following error
Error in base64decode(gsub("_", "/", gsub("-", "+", x))) :
could not find function "base64decode"

edit 2: adding "base64enc::" fixes it.

my_base64url_decode_to_char <- function(x) { iconv(rawToChar(base64enc::base64decode(gsub("_", "/", gsub("-", "+", x)))), from="UTF-8", to="latin1") }

[jimhester]

@SimonCoulombe if you are still running into this problem could you provide an example email object that shows the issue as an .Rds, using saveRDS(msg, "out.Rds").