From 67be2746c4a7dc8232c9140c4189665ffa6c349d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 10 Dec 2008 21:22:01 +0100
Subject: Atom feed: Include body data for recent changes.

darcs-hash:51ebb84c4b9d13651bfc60f6700375455bb2cfe4
---
 journal.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index 8b36dc2..adcb55b 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -104,7 +104,10 @@
                                      ("href" ,(link-to :view
                                                        :post-id id
                                                        :absolute t)))))
-                 (unless (> number 8)
+                 (when (or (and last-modification
+                                (> last-modification (- (get-universal-time)
+                                                        (* 30 24 60 60))))
+                           (<= number 8))
                    ;; We only include the body for the most recent
                    ;; posts in order to save bandwidth.
                    (with-tag ("content" `(("type" "xhtml")
-- 
cgit v1.2.3