--- muse.orig/lisp/muse-latex.el	2006-08-08 13:50:03.000000000 +0900
+++ muse/lisp/muse-latex.el	2006-11-12 23:25:21.000000000 +0900
@@ -56,13 +56,10 @@
   :group 'muse-latex)
 
 (defcustom muse-latex-header
-  "\\documentclass{article}
+  "\\documentclass{jsarticle}
 
-\\usepackage[english]{babel}
-\\usepackage[latin1]{inputenc}
-\\usepackage[T1]{fontenc}
-\\usepackage{hyperref}
-\\usepackage[pdftex]{graphicx}
+\\usepackage[dvipdfm]{hyperref}
+\\usepackage[dvipdfmx]{graphicx}
 
 \\newcommand{\\comment}[1]{}
 
@@ -233,6 +230,12 @@
   :type '(alist :key-type coding-system :value-type string)
   :group 'muse-latex)
 
+(defcustom muse-latex-encoding-default 'euc-jp
+  "The default Emacs buffer encoding to use in published files.
+This will be used if no special characters are found."
+  :type 'symbol
+  :group 'muse-latex)
+
 (defcustom muse-latexcjk-encoding-default "{GB}{song}"
   "The default Emacs buffer encoding to use in published files.
 This will be used if no special characters are found."
@@ -403,7 +406,8 @@
   (when (and muse-latex-permit-contents-tag
              muse-publish-generate-contents)
     (goto-char (car muse-publish-generate-contents))
-    (muse-insert-markup "\\tableofcontents")))
+    (muse-insert-markup "\\tableofcontents"))
+  (setq buffer-file-coding-system muse-latex-encoding-default))
 
 (defun muse-latex-pdf-browse-file (file)
   (shell-command (concat "open " file)))
@@ -413,8 +417,8 @@
    file output-path final-target "PDF"
    (function
     (lambda (file output-path)
-      (let ((command (format "cd \"%s\"; pdflatex \"%s\""
-                             (file-name-directory output-path) file))
+      (let ((command (format "cd \"%s\"; platex \"%s\" && dvipdfmx \"%s.dvi\""
+                             (file-name-directory output-path) file (substring file 0 -4)))
             (times 0)
             result)
         ;; XEmacs can sometimes return a non-number result.  We'll err
@@ -434,7 +438,7 @@
                 (eq result 0))
             t
           nil))))
-   ".aux" ".toc" ".out" ".log"))
+   ".aux" ".toc" ".out" ".log" ".dvi"))
 
 (unless (assoc "latex" muse-publishing-styles)
   (muse-define-style "latex"
@@ -454,15 +458,16 @@
                      :link-suffix 'muse-latex-pdf-extension
                      :osuffix 'muse-latex-pdf-extension)
 
-  (muse-derive-style "latexcjk" "latex"
-                     :header    'muse-latexcjk-header
-                     :footer    'muse-latexcjk-footer)
-
-  (muse-derive-style "pdfcjk" "latexcjk"
-                     :final   'muse-latex-pdf-generate
-                     :browser 'muse-latex-pdf-browse-file
-                     :link-suffix 'muse-latex-pdf-extension
-                     :osuffix 'muse-latex-pdf-extension))
+;  (muse-derive-style "latexcjk" "latex"
+;                     :header    'muse-latexcjk-header
+;                     :footer    'muse-latexcjk-footer)
+
+;  (muse-derive-style "pdfcjk" "latexcjk"
+;                     :final   'muse-latex-pdf-generate
+;                     :browser 'muse-latex-pdf-browse-file
+;                     :link-suffix 'muse-latex-pdf-extension
+;                     :osuffix 'muse-latex-pdf-extension)
+)
 
 (provide 'muse-latex)