[9front] patch for imap when imap fails

[unobe@cpan.org]

changeset:   8411:19f6a88ea241
branch:      mbp-2011
user:        Romano <unobe@cpan.org>
date:        Sat Apr 17 14:35:21 2021 -0700
files:       sys/src/cmd/upas/fs/imap.c
description:
When an imap fetch fails, it's helpful at times to know the underlying
cause.  This provides more details by providing the underlying error
message.


diff -r e67425888043 -r 19f6a88ea241 sys/src/cmd/upas/fs/imap.c
--- a/sys/src/cmd/upas/fs/imap.c	Sat Apr 17 14:34:04 2021 -0700
+++ b/sys/src/cmd/upas/fs/imap.c	Sat Apr 17 14:35:21 2021 -0700
@@ -865,14 +865,16 @@
 imap4fetch(Mailbox *mb, Message *m, uvlong o, ulong l)
 {
 	Imap *imap;
+	char *resp;
 
 	imap = mb->aux;
 	if(imap->flags & Fgmail)
 		l = gmaildiscount(m, o, l);
 	idprint(imap, "uid fetch %lud (flags body.peek[]<%llud.%lud>)\n", (ulong)m->imapuid, o, l);
 	imap4cmd(imap, "uid fetch %lud (flags body.peek[]<%llud.%lud>)", (ulong)m->imapuid, o, l);
-	if(!isokay(imap4resp0(imap, mb, m))){
-		eprint("imap: imap fetch failed\n");
+	resp = imap4resp0(imap, mb, m);
+	if(!isokay(resp)){
+		eprint("imap: imap fetch failed: %s\n", resp);
 		return -1;
 	}
 	return 0;