From 642111b90390a96992ffac160e402cfbed309e08 Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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-content.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'journal-content.lisp') diff --git a/journal-content.lisp b/journal-content.lisp index b0b9ce8..65ac245 100644 --- a/journal-content.lisp +++ b/journal-content.lisp @@ -160,8 +160,8 @@ (select 'journal-comment :where [and [= [slot-value 'journal-comment 'entry-id] (id-of journal-entry)] - [not [= [slot-value 'journal-comment 'spam-p] - "t"]]] + [= [slot-value 'journal-comment 'spam-p] + "f"]] :order-by '([date]) :flatp t) (select 'journal-comment @@ -170,7 +170,7 @@ :order-by '([date]) :flatp t)) (if ham-p - (remove-if #'spamp (%comments-about journal-entry)) + (comments-about journal-entry :ordered-p t :ham-p t) (%comments-about journal-entry))) #.(restore-sql-reader-syntax-state))) -- cgit v1.2.3