From: kaoru <kaoru>
Date: Tue, 4 Sep 2001 03:43:28 +0000 (+0000)
Subject: * WL-MK (toplevel): Ignore Nemacs.
X-Git-Tag: wl-2_7_4~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=89c09e760e0bc7a043fdcf97f6be52742c3f893d;p=elisp%2Fwanderlust.git

* WL-MK (toplevel): Ignore Nemacs.
(compile-wl-package, wl-detect-info-directory): Ditto.

* WL-MK (config-wl-package-subr): Fixed error message.  Ignore tm.
Add refer to INSTALL and INSTALL.ja.
* WL-ELS (toplevel): Likewise.

* WL-MK (test-wl, check-wl): Add docstring.
---

diff --git a/ChangeLog b/ChangeLog
index 14c65dd..3d7ff59 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2001-09-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* WL-MK (toplevel): Ignore Nemacs.
+	(compile-wl-package, wl-detect-info-directory): Ditto.
+
+	* WL-MK (config-wl-package-subr): Fixed error message.  Ignore tm.
+	Add refer to INSTALL and INSTALL.ja.
+	* WL-ELS (toplevel): Likewise.
+
+	* WL-MK (test-wl, check-wl): Add docstring.
+
 2001-09-03  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* INSTALL.ja (Sample configration file): Added comment
diff --git a/WL-ELS b/WL-ELS
index c482a33..69f6c8e 100644
--- a/WL-ELS
+++ b/WL-ELS
@@ -55,7 +55,7 @@
 (setq WL-MODULES (append WL-MODULES (list 'wl-mime)))
 (setq ELMO-MODULES (append ELMO-MODULES (list 'elmo-mime)))
 (if (not (module-installed-p 'luna))
-    (error "Use FLIM-1.13.2 or later and SEMI 1.13.7 or later."))
+    (error "Use new FLIM & SEMI.  See INSTALL or INSTALL.ja"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Utils
diff --git a/WL-MK b/WL-MK
index 6e49363..8872b03 100644
--- a/WL-MK
+++ b/WL-MK
@@ -20,7 +20,7 @@
 (defvar COMPRESS-SUFFIX-LIST '("" ".gz" ".Z" ".bz2"))
 
 (defvar wl-install-utils nil
-  "if Non-nil, install `wl-utils-modules'.")
+  "If Non-nil, install `wl-utils-modules'.")
 
 ;;; INFO
 (defconst wl-ja-info "wl-ja.info")
@@ -31,10 +31,6 @@
 (defvar wl-info-lang "ja"
   "The language of info file (\"ja\" or \"en\").")
 
-;; for Nemacs (dirty!)
-(if (not (fboundp 'file-executable-p))
-    (fset 'file-executable-p 'file-exists-p))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (require 'cl)
@@ -84,8 +80,7 @@
 (setq byte-compile-warnings '(free-vars unresolved callargs redefine))
 
 ;; v18, v19
-(if (or (boundp 'MULE)
-	(fboundp 'nemacs-version))
+(if (boundp 'MULE)
     (setq max-lisp-eval-depth 400))
 
 ;; FIXME: it is currently needed to byte-compile with Emacs 21.
@@ -111,11 +106,11 @@
     (load "./WL-ELS" nil nil t)
     (condition-case ()
 	(require 'mime-setup)
-      (error (error "No MIME module was detected. Please install SEMI or tm.")))
+      (error (error "No MIME module was detected. Please install SEMI.")))
     ;; smtp.el version check.
     (require 'smtp)
     (if (not (fboundp 'smtp-send-buffer))
-	(error "Please install FLIM 1.14.0 or later."))))
+	(error "Please install new FLIM.  See INSTALL or INSTALL.ja."))))
 
 (defun config-wl-pixmap-dir (&optional packagedir)
   "Examine pixmap directory where icon files should go."
@@ -147,6 +142,7 @@
   (princ "\n"))
 
 (defun test-wl ()
+  "Run test suite for developer."
   (config-wl-package)
   (require 'lunit)
   (let ((files (directory-files "tests" t "^test-.*\\.el$"))
@@ -163,6 +159,7 @@
     (lunit suite)))
 
 (defun check-wl ()
+  "Check user environment.  Not for developer."
   (config-wl-package)
   (require 'lunit)
   (let ((files (directory-files "tests" t "^check-.*\\.el$"))
@@ -203,10 +200,7 @@
 
 
 (defun compile-wl-package ()
-  ;; For nemacs byte compiler's strange behavior(?).
   (config-wl-package)
-  (if (fboundp 'nemacs-version)
-      (load (expand-file-name "wl.el" WLDIR)))
   (mapcar
    '(lambda (x)
       (compile-elisp-modules (cdr x) (car x)))
@@ -386,8 +380,6 @@
 
 (defun wl-detect-info-directory ()
   (config-wl-package-subr)
-  (if (fboundp 'nemacs-version)
-      (error "Cannot format info on Nemacs. Please use another formatter."))
   ;; INFODIR check.
   (require 'info)
   (if (fboundp 'info-initialize)