From 642111b90390a96992ffac160e402cfbed309e08 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 23:09:05 +0200
Subject: Only show comments that have been marked as non-spam.

Ignore-this: a4902d3cf1e4596c928d5c3ba8b6990c

darcs-hash:78d565dad4cfbfdd9a515c96086c8100dee6022d
---
 journal.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index e1fe6a5..dbadd00 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -90,6 +90,7 @@
 
         (let ((number 0))
           (dolist (journal-comment (select 'journal-comment
+                                           :where [= [slot-value 'journal-comment 'spam-p] "f"]
                                            :order-by '(([date] :desc))
                                            :flatp t))
             (with-slots (entry uuid date body author website spam-p id)
-- 
cgit v1.2.3