From: okada <okada>
Date: Sun, 26 Nov 2000 22:24:57 +0000 (+0000)
Subject: 	* wl.el (wl-check-environment): Additional check for
X-Git-Tag: wl-2_6-root~161
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=954ce05cb810058ac2c3510e295de1d0993420fe;p=elisp%2Fwanderlust.git

	* wl.el (wl-check-environment): Additional check for
	'wl-local-domain' and `wl-message-id-domain'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9464e8c..016e4c2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-27  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl.el (wl-check-environment): Additional check for
+	'wl-local-domain' and `wl-message-id-domain'.
+
 2000-11-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* Version number is increased to 2.5.3.
diff --git a/wl/wl.el b/wl/wl.el
index d9312bf..23e5de5 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -713,6 +713,10 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 					"." wl-local-domain)
 			      (system-name))))
       (error "Please remove `@' from `wl-message-id-domain'"))
+  (if (string= wl-local-domain "localdomain")
+      (error "Please set `wl-local-domain'."))
+  (if (string= wl-message-id-domain "localhost.localdomain")
+      (error "Please set `wl-message-id-domain'."))
   (when (not no-check-folder)
     (if (not (eq (elmo-folder-get-type wl-draft-folder) 'localdir))
 	(error "%s is not allowed for draft folder" wl-draft-folder))