--- emacs-wiki.el.orig	2003-09-02 10:14:01.000000000 +0800
+++ emacs-wiki.el	2003-09-02 10:24:14.000000000 +0800
@@ -2614,7 +2614,8 @@
 If the argument FORCE is nil, each file is only published if it is
 newer than the published version.  If the argument FORCE is non-nil,
 the file is published no matter what."
-  (let (published-some file page published)
+  (let (published-some file page published
+                       (emacs-wiki-publishing-p t))
     (while files
       (setq file (car files)
 	    files (cdr files)
@@ -2679,7 +2680,6 @@
   "Replace markup according to `emacs-wiki-publishing-markup'."
   (let* ((emacs-wiki-meta-http-equiv emacs-wiki-meta-http-equiv)
 	 (emacs-wiki-current-page-title title)
-	 (emacs-wiki-publishing-p t)
 	 (case-fold-search nil)
 	 (inhibit-read-only t)
 	 (rules (if (string= (emacs-wiki-page-name) "ChangeLog")