Atom feed: Include body data for recent changes.

darcs-hash:51ebb84c4b9d13651bfc60f6700375455bb2cfe4

1 files changed, 4 insertions, 1 deletions

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")