* 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 (file)
--- 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 (file)
--- 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)