--- a/lisp/org-blog.el
+++ b/lisp/org-blog.el
@@ -170,11 +170,12 @@ Follow up with org-publish-all to upload to the site."
;; pluggable index generation function for org-publish.
-(defun org-publish-blog-index (plist &optional index-filename)
+(defun org-publish-blog-index (project &optional index-filename)
"Publish an index of all finished blog posts.
This function is suitable for use in the :index-function keyword
of org-publish-project-alist."
- (let* ((posts (nreverse (sort (org-publish-get-base-files plist "*~") 'string<)))
+ (let* ((plist (cdr project))
+ (posts (nreverse (sort (org-publish-get-base-files project "*~") 'string<)))
(base-directory (file-name-as-directory (or org-blog-directory (plist-get plist :base-directory))))
(blog-base-url (file-name-as-directory (plist-get plist :blog-base-url)))
(blog-title (plist-get plist :blog-title))
- Levin