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

diff --git a/mx.c b/mx.c
index 0c1c4187f6eec6c2fbf007a7c7fa3416d589a9d4..3c04a9a000077cab629844f9ffa6105e99833f49 100644 (file)
--- 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;
+       }
       }
     }