M docs/changelog.txt → docs/changelog.txt

@@ -2,6 +2,8 @@ changelog
 
 -- next
 
++ Keep reply to setting during preview.
+
 + Increase max thread retrieval depth to 10.
 
 -- 0.7.6

M honk.go → honk.go

@@ -1089,6 +1089,7 @@ reverbolate(userinfo.UserID, honks)
 		templinfo := getInfo(r)
 		templinfo["HonkCSRF"] = login.GetCSRF("honkhonk", r)
 		templinfo["Honks"] = honks
+		templinfo["InReplyTo"] = r.FormValue("rid")
 		templinfo["Noise"] = r.FormValue("noise")
 		templinfo["ServerMessage"] = "honk preview"
 		err := readviews.Execute(w, "honkpage.html", templinfo)

M views/honkform.html → views/honkform.html

@@ -2,7 +2,7 @@ <p id="honkformhost">
 <button onclick="showhonkform(); return false"><a href="/newhonk">it's honking time</a></button>
 <form id="honkform" action="/honk" method="POST" enctype="multipart/form-data" style="display: none">
 <p>
-in reply to: <input type="text" name="rid" id="ridinput" value="" autocomplete=off>
+in reply to: <input type="text" name="rid" id="ridinput" value="{{ .InReplyTo }}" autocomplete=off>
 <input type="hidden" name="CSRF" value="{{ .HonkCSRF }}">
 <p>
 <label id="donker">attach: <input onchange="updatedonker();" type="file" name="donk"><span></span></label>