- prevented to replace a post's content with an empty text.

src/program-events.lisp

@@ -2099,6 +2099,8 @@
         (croatoan:end-screen)
         (tui:with-notify-errors
             (os-utils:open-with-editor temp-file))
+        (when (> (fs:file-size temp-file)
+                 0)
           (let ((new-content (fs:slurp-file temp-file)))
             (ui:notify (_ "Editing post…"))
             (client:edit-status status-id new-content nil nil nil nil)
@@ -2117,7 +2119,7 @@
               (push-event refresh-event)
               (with-enqueued-process (+minimum-event-priority+)
                 (ui:thread-open-selected-message)
-              (ui:notify (_ "Post modified")))))))))
+                (ui:notify (_ "Post modified"))))))))))
 
 ;;;; end events