Fix bug in RSS generation

diff --git a/esy-publish.el b/esy-publish.el
index fffcd9cde1a25860e2855de71f24b3e9b85fafe1..7b0f956589dd2e46401683a16b4c04c64676b819 100644 (file)
--- a/esy-publish.el
+++ b/esy-publish.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Eshel Yaron <me@eshelyaron.com>
 ;; Keywords: languages extensions
 ;; URL: http://git.eshelyaron.com/gitweb/?p=esy-publish.git
-;; Package-Version: 0.8.0
+;; Package-Version: 0.9.0
 ;; Package-Requires: ((emacs "28.2"))
 
 ;; This file is NOT part of GNU Emacs.
@@ -322,6 +322,7 @@
   (with-current-buffer (find-file-noselect
                         (expand-file-name
                          file esy-publish-local-posts-directory))
+    (push (current-buffer) esy-publish--buffers)
     (let ((dom (libxml-parse-html-region (point-min) (point-max))))
       `(item nil
              (title nil ,(string-join (dom-strings (car (dom-by-tag dom 'title)))))
@@ -330,8 +331,7 @@
              (link nil ,(concat "https://eshelyaron.com/posts/" file))
              (guid ((isPermaLink . "true")) ,(concat "https://eshelyaron.com/posts/" file))
              (pubDate nil ,(substring file 0 10))
-             (description nil ,(format "<![CDATA[%s]]>" (esy-publish--dom-to-string (car (dom-by-id dom "content")))))))
-    (push (current-buffer) esy-publish--buffers)))
+             (description nil ,(format "<![CDATA[%s]]>" (esy-publish--dom-to-string (car (dom-by-id dom "content")))))))))
 
 (defun esy-publish--finalize-sitemap (plist)
   (let ((locs (mapcar #'esy-publish--file-url