[emacs-wiki-discuss] Files under DeaultProject

[Yamagata Yoriyuki]

Hi, 

I notice that somehow, files under JournalWiki (the project keeping
emacs-wiki-journal files) are published under DefaultProject's
publising directory.  JournalWiki files are also appearing in the
index of DefaultProject.  Anyone else has a problem like this?  I am
using sources in the newest Arch repos, with several changes of mine
to emacs-wiki-publish.el.

I have three projects, DefaultProject, JournalWiki, PlannerWiki.
Eash project resides ~/Wiki, ~/Blog, ~/Plan respectively.  They are
published to <the html directory>/Wiki, <the html directory>/Blog.
The value of emacs-wiki-projects is

(("JournalWiki"
  (emacs-wiki-directories "~/Blog")
  (emacs-wiki-home-page . "MyJournal")
  (emacs-wiki-publishing-directory . "~/html/personal/Blog")
  (emacs-wiki-project-server-prefix . "../Blog/")
  (emacs-wiki-index-title-threshold . t))
 ("WikiPlanner"
  (emacs-wiki-directories "~/Plans")
  (emacs-wiki-major-mode . planner-mode)
  (emacs-wiki-markup-tags
... snip ...
  (emacs-wiki-publishing-directory . "~/WebWiki")))

The value of emacs-wiki-file-alist looks wrong.  There are duplicated
enties in DefaultProject and JournalWiki.

(("WikiPlanner"
... snip ...
   ("TaskPool" . "/home/yori/Plans/TaskPool"))
  16965 20486)
 ("DefaultProject"
  ( ... snip ...
   ("MyJournal23" . "/home/yori/Blog/MyJournal23")
   ("MyJournal" . "/home/yori/Blog/MyJournal")
   ("MyJournal26" . "/home/yori/Blog/MyJournal26")
   ("MyJournal21" . "/home/yori/Blog/MyJournal21")
   ("MyJournal25" . "/home/yori/Blog/MyJournal25")
   ("MyJournal24" . "/home/yori/Blog/MyJournal24")
   ("MyJournal22" . "/home/yori/Blog/MyJournal22")
   ("MyJournal15" . "/home/yori/Blog/MyJournal15")
  ... snip ...)
  16965 40543)
 ("JournalWiki"
  (... snip ...
   ("MyJournal23" . "/home/yori/Blog/MyJournal23")
   ("MyJournal" . "/home/yori/Blog/MyJournal")
   ("MyJournal26" . "/home/yori/Blog/MyJournal26")
   ("MyJournal21" . "/home/yori/Blog/MyJournal21")
   ("MyJournal25" . "/home/yori/Blog/MyJournal25")
   ("MyJournal24" . "/home/yori/Blog/MyJournal24")
   ("MyJournal22" . "/home/yori/Blog/MyJournal22")
   ("MyJournal15" . "/home/yori/Blog/MyJournal15")
   ... snip ...)
  16965 39523))

Ok, I have some idea.  I insert two lines (*) to emacs-wiki-publish.
Could it be causing this problem?

(defun emacs-wiki-publish (&optional arg)

... snip ...

  (let ((emacs-wiki-project emacs-wiki-current-project))
    (run-hooks 'emacs-wiki-before-wiki-publish-hook)     (*)
    (emacs-wiki-refresh-file-alist)                      (*)
    ;; don't run ispell for every buffer we enter
    (remove-hook 'text-mode-hook 'flyspell-mode t)

--
Yamagata Yoriyuki