From 1b12f896044e644186c583da4c4643d1f8a8c406 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 9 Oct 2000 11:09:41 +0000 Subject: [PATCH] * wl.el (wl-check-environment): Check too many `@'. --- wl/ChangeLog | 4 ++++ wl/wl.el | 6 ++++++ 2 files changed, 10 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 091bc13..c70fde1 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2000-10-08 Kenichi OKADA + + * wl.el (wl-check-environment): Check too many `@'. + 2000-10-08 Mikio Nakajima * wl-thread.el (wl-thread-delete-message): Fix parentheses. diff --git a/wl/wl.el b/wl/wl.el index b5939ac..3ea1a6d 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -699,6 +699,12 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." "." wl-local-domain) (system-name)))) (error "Please set `wl-local-domain' to get valid FQDN")) + (if (string-match "@" (or wl-message-id-domain + (if wl-local-domain + (concat (system-name) + "." wl-local-domain) + (system-name)))) + (error "Please remove `@' from `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)) -- 1.7.10.4