qnikst / HaskellNet

Haskell library which provides client support for POP3, SMTP, and IMAP protocols.
Other
87 stars 54 forks source link

Error on append (when not error were reported) #85

Closed vzaliva closed 3 years ago

vzaliva commented 3 years ago

I am trying to append, a message followed by search and get an exception, while IMAP interaction seems to be perfectly normal:

HaskellNet-SSL SEND: "000003 APPEND CMU (\\Seen) \"02-Sep-2020 15:42:58 +0000\" {41232}"
HaskellNet-SSL SEND: "\r\n"
HaskellNet-SSL RECV: "+ go ahead\r"
HaskellNet-SSL SEND: "..."
....
HaskellNet-SSL SEND: ""
HaskellNet-SSL SEND: "\r\n"
HaskellNet-SSL RECV: "* 286 EXPUNGE\r"
HaskellNet-SSL RECV: "* 286 EXISTS\r"
HaskellNet-SSL RECV: "000003 OK [APPENDUID 646710037 324] (Success)\r"
HaskellNet-SSL SEND: "000004 UID SEARCH HEADER Message-ID <CA+ovoGab90ML0kuEK9pfq_a-Pp=ugP1m=C76mjooeMUVKXQmAA@mail.gmail.com>"
HaskellNet-SSL SEND: "\r\n"
HaskellNet-SSL RECV: "* SEARCH 319 324\r"
HaskellNet-SSL RECV: "000004 OK SEARCH completed (Success)\r"
my-exe: IMAPAppendError

Interestingly it works well on other messages and always fails on this one. I suspect it has something to do with EXPUNGE/EXISTS reponses.