(if (and (memq type '(rlogin telnet)) relay)
(setq liece-tcp-relay-host relay))
(setq liece-tmp-server-name host)
- (unless (string-match "^[^\\[]" host)
- (setq host (substring host 1 (1- (length host)))))
(setq liece-server-process (liece-open-server-internal host service type))
(setq liece-after-registration nil)
(liece-maybe-poll)