Carry Message-ID forward through compose process

plugins/base/public/compose.html

@@ -9,6 +9,7 @@
 <h2>Compose new message</h2>
 
 <form method="post" action="" enctype="multipart/form-data">
+  <input type="hidden" name="message_id" value="{{.Message.MessageID}}">
   <input type="hidden" name="in_reply_to" value="{{.Message.InReplyTo}}">
 
   <label for="from">From:</label>

plugins/base/routes.go

@@ -526,7 +526,6 @@ func submitCompose(ctx *alps.Context, msg *OutgoingMessage, options *composeOpti
 		if task.Result() == nil {
 			// Remove from outbox
 			err := ctx.Session.DoIMAP(func(c *imapclient.Client) error {
-				ctx.Logger().Printf("DoIMAP")
 				if err := ensureMailboxSelected(c, "Outbox"); err != nil {
 					return err
 				}
@@ -617,6 +616,7 @@ func handleCompose(ctx *alps.Context, msg *OutgoingMessage, options *composeOpti
 		msg.Subject = ctx.FormValue("subject")
 		msg.Text = ctx.FormValue("text")
 		msg.InReplyTo = ctx.FormValue("in_reply_to")
+		msg.MessageID = ctx.FormValue("message_id")
 
 		form, err := ctx.MultipartForm()
 		if err != nil {

themes/alps/compose.html

@@ -9,7 +9,8 @@
     <main class="create-update">
 
       <form method="post" enctype="multipart/form-data">
-        <input type="hidden" name="in_reply_to" value="{{.Message.InReplyTo}}">
+        <input type="hidden" name="message_id" value="{{.Message.InReplyTo}}">
+        <input type="hidden" name="in_reply_to" value="{{.Message.MessageID}}">
 
         <div class="headers no-js">
           <label>From</label>

themes/sourcehut/compose.html

@@ -18,6 +18,7 @@
 </div>
 <div class="container">
   <form method="post" class="col-md-12" enctype="multipart/form-data">
+    <input type="hidden" name="message_id" value="{{.Message.MessageID}}">
     <input type="hidden" name="in_reply_to" value="{{.Message.InReplyTo}}">
     <div class="row">
       <div class="form-group col-md-6">