* wl-draft.el (wl-draft-create-buffer): Add

[elisp/wanderlust.git] / WL-MK

diff --git a/WL-MK b/WL-MK
index 0122682..9823afd 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)))
@@ -482,7 +486,14 @@
            (if wl-news-lang
                (progn
                  (insert "(defconst wl-news-news-alist\n  '")
-                 (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
+                 (let ((p (point)))
+                   (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
+                   (save-excursion
+                     (narrow-to-region p (point))
+                     (goto-char (1+ p))
+                     (while (re-search-forward "^(" nil t)
+                       (replace-match "\\\\(")) ; avoid font-lock confusion
+                     (widen)))
                  (insert ")\n"))
              (insert "(defconst wl-news-news-alist nil)\n\n"))
            (let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext)))