Re: [emacs-wiki-discuss] emacs-wiki-journal-add-entry

[Yamagata Yoriyuki]

Here is a patch.

--- orig/emacs-wiki-journal.el
+++ mod/emacs-wiki-journal.el
@@ -245,14 +245,14 @@
 If NO-CHECK-P is non-nil, then don't check for changes in the directories
 to decide whether to re-read the cached alist, just re-read the disk."
   (let ((file-alist
-         (cdr (assoc emacs-wiki-journal-project emacs-wiki-file-alist)))
+         (car (cdr (assoc emacs-wiki-journal-project emacs-wiki-file-alist))))
         (category-alist nil))
     (save-match-data
       (mapc
        (lambda (file)
          (if (string-match emacs-wiki-journal-category-regexp
                            (car file))
-             (setq category-alist (cons file category-alist))))
+             (setq category-alist (cons (car file) category-alist))))
        file-alist))
     category-alist))