From cf3660236997081c2baab52d7cb817e6c5815114 Mon Sep 17 00:00:00 2001
From: saturn <saturn@glxl.net>
Date: Sun, 7 Jan 2024 23:42:39 -0600
Subject: [PATCH] Show comments without a html-body as deleted.

---
 src/data-viewers/comment.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/data-viewers/comment.lisp b/src/data-viewers/comment.lisp
index 63f23b68..e457c9b0 100644
--- a/src/data-viewers/comment.lisp
+++ b/src/data-viewers/comment.lisp
@@ -47,7 +47,7 @@
     (generate-item-link (if post-id :post :tag) (or post-id (cdr (assoc :slug tag))) :comment-id comment-id)))
 
 (defun comment-to-html (out-stream comment &key with-post-title)
-  (if (or (cdr (assoc :deleted comment)) (cdr (assoc :deleted-public comment)))
+  (if (or (cdr (assoc :deleted comment)) (cdr (assoc :deleted-public comment)) (not (cdr (assoc :html-body comment))))
       (format out-stream "<div class=\"comment deleted-comment\"><div class=\"comment-meta\"><span class=\"deleted-meta\">[ ]</span></div><div class=\"body-text comment-body\">[deleted]</div></div>")
       (schema-bind (:comment comment :auto :context :index)
         (multiple-value-bind (pretty-time js-time) (pretty-time posted-at)
-- 
2.11.4.GIT