From: yoichi <yoichi>
Date: Thu, 28 Feb 2002 10:45:18 +0000 (+0000)
Subject: * wl.el (wl-check-environment): Also cause error when (system-name)
X-Git-Tag: wl-2_9_8~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d109daffc109dca3bb9440e0539e6f9ca879b5a2;p=elisp%2Fwanderlust.git

* wl.el (wl-check-environment): Also cause error when (system-name)
  returns "localhost.localdomain". (Although it doesn't affect because
  of condition-case, see change in 2002-01-23 by Teranisi-san.)
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bbe4059..6fdd3f6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-02-28  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl.el (wl-check-environment): Also cause error when (system-name)
+	returns "localhost.localdomain". (Although it doesn't affect because
+	of condition-case, see change in 2002-01-23 by Teranisi-san.)
+
 2002-02-26  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-folder.el (wl-folder-update-newest): Use wl-string-match-member
diff --git a/wl/wl.el b/wl/wl.el
index e81b208..ae39fb3 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -722,7 +722,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 	(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")
+    (if (string= domain "localhost.localdomain")
 	(error "Please set `wl-message-id-domain'")))
   ;; folders
   (when (not no-check-folder)