Cleanups.

Ignore-this: 1f41960dbf7dde782a0c2e905f124e81

darcs-hash:06fd3071bcb306c6c362675c872b8421a22735a8

1 files changed, 2 insertions, 2 deletions

diff --git a/main.lisp b/main.lisp
index 88685e1..7a65953 100644
--- a/main.lisp
+++ b/main.lisp
@@ -268,6 +268,7 @@
                   (when (string= *method* "PUT")
                     (setf (last-modification-of entry)
                           (get-universal-time)))
+                  (setf *post-number* (id-of entry))
                   (flet ((tag-equal (tag1 tag2)
                            (equal (if (consp tag1) (car tag1) tag1)
                                   (if (consp tag2) (car tag2) tag2))))
@@ -291,8 +292,7 @@
                       (when title-element
                         (setf (title-of entry) (or (caddr title-element) "")))
                       (setf (entry-type-of entry) "html")))
-                  (update-records-from-instance entry)
-                  (setq *post-number* (id-of entry))))
+                  (update-records-from-instance entry)))
               (show-atom-entry))
              (t (debug-log "Oops. Method was:") (debug-log *method*)))))
     (:view-atom-feed (show-atom-feed))