- "Please set `wl-from' to get valid Message-ID string."))
- (setq domain
- (or wl-message-id-domain
- (if wl-local-domain
- (concat (system-name) "." wl-local-domain)
- (system-name)))))
- (unless (string-match "[^.]\\.[^.]" domain)
- (elmo-warning "Please set `wl-local-domain' to get valid FQDN."))
- (if (string-match "@" domain)
- (error "Please remove `@' from `wl-message-id-domain'."))
- (if (string= wl-local-domain "localdomain")
- (elmo-warning "Please set `wl-local-domain' properly."))
- (if (string= domain "localhost.localdomain")
- (elmo-warning
- "Please set `wl-message-id-domain' to get valid Message-ID string.")))