summaryrefslogtreecommitdiff
path: root/main.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'main.lisp')
-rw-r--r--main.lisp5
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")