[unstable] Check for write errors when moving messages to $mbox.

1 files changed, 10 insertions, 3 deletions

diff --git a/mx.c b/mx.c
index 0c1c4187..3c04a9a0 100644
--- a/mx.c
+++ b/mx.c
@@ -807,9 +807,16 @@ int mx_close_mailbox (CONTEXT *ctx)
     {
       if (ctx->hdrs[i]->read && !ctx->hdrs[i]->deleted)
       {
-	mutt_append_message (&f, ctx, ctx->hdrs[i], 0, CH_UPDATE_LEN);
-	ctx->hdrs[i]->deleted = 1;
-	ctx->deleted++;
+	if (mutt_append_message (&f, ctx, ctx->hdrs[i], 0, CH_UPDATE_LEN) == 0)
+	{
+	  ctx->hdrs[i]->deleted = 1;
+	  ctx->deleted++;
+	}
+	else
+	{
+	  mx_close_mailbox (&f);
+	  return -1;
+	}
       }
     }