Add missing Atom publishing functionality.

Ignore-this: 854e1b167c18c61a8faf29bd05594180

darcs-hash:651ba98e3341e180f1a21e9c432f69280458a501

1 files changed, 4 insertions, 1 deletions

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