Update to version 2003-01-17.09.

[elisp/wanderlust.git] / WL-MK

diff --git a/WL-MK b/WL-MK
index 40ec8a8..a3cd3a0 100644 (file)
--- a/WL-MK
+++ b/WL-MK
@@ -28,11 +28,11 @@
 (defconst wl-en-info "wl.info")
 (defconst wl-en-texi "wl.texi")
 
-(defvar wl-info-lang '("ja" "en")
+(defvar wl-info-lang (if (featurep 'mule) '("ja" "en") '("en"))
   "The language of info file (\"ja\" or \"en\").")
 
 ;;; NEWS
-(defvar wl-news-lang '("ja" "en")
+(defvar wl-news-lang (if (featurep 'mule) '("ja" "en") '("en"))
   "The language of news file (\"ja\" or \"en\").")
 (defconst wl-news-news-file '(("en" "NEWS")
                              ("ja" "NEWS.ja")))
@@ -174,6 +174,7 @@
 (defun test-wl ()
   "Run test suite for developer."
   (config-wl-package)
+  (make-wl-news)
   (require 'lunit)
   (let ((files (directory-files "tests" t "^test-.*\\.el$"))
        (suite (lunit-make-test-suite)))
@@ -191,6 +192,9 @@
 (defun check-wl ()
   "Check user environment.  Not for developer."
   (config-wl-package)
+  ;; Avoid load error
+  (provide 'wl-news)
+  (load "wl-news.el.in")
   (require 'lunit)
   (let ((files (directory-files "tests" t "^check-.*\\.el$"))
        (suite (lunit-make-test-suite)))
@@ -329,6 +333,7 @@
 ;; from SEMI-MK
 (defun compile-wl-package-xmas ()
   (config-wl-package-xmas)
+  (make-wl-news)
   (setq autoload-package-name "wl")
   (add-to-list 'command-line-args-left WLDIR)
   (batch-update-directory)
@@ -478,9 +483,12 @@
            (unless (re-search-forward "^;;; -\\*- news-list -\\*-" nil t)
              (error "Invalid wl-news.el.in"))
            (forward-line 2)
-           (insert "(defconst wl-news-news-alist\n  '")
-           (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
-           (insert ")\n")
+           (if wl-news-lang
+               (progn
+                 (insert "(defconst wl-news-news-alist\n  '")
+                 (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
+                 (insert ")\n"))
+             (insert "(defconst wl-news-news-alist nil)\n\n"))
            (let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext)))
              (write-region (point-min) (point-max) out-filename)))))))