From a4e8b49e3d5f21d416b554d935a66d52f3cd08c0 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 19:17:53 +0200
Subject: Add missing Atom publishing functionality.

Ignore-this: 854e1b167c18c61a8faf29bd05594180

darcs-hash:651ba98e3341e180f1a21e9c432f69280458a501
---
 main.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index f51edcd..39c4ccb 100644
--- a/main.lisp
+++ b/main.lisp
@@ -146,7 +146,10 @@
                                      :av-pairs `((spam_p "t")))))
                  (show-moderation-page)))
     (:view-atom-entry
-     (cond ((string= *method* "GET") (show-atom-entry))
+     (cond ((string= *method* "GET")
+            (if *post-number*
+                (show-atom-entry)
+                (show-atom-feed :include-edit-links t)))
            ((member *method* '("POST" "PUT") :test 'equal)
             (with-transaction ()
               (let* ((entry (if (string= *method* "PUT")
-- 
cgit v1.2.3