- ;; canonicalize host representation
- (unless (string-match "^[^\\[]" host)
- (setq host (substring host 1 (1- (length host)))))
- (condition-case error
- (save-excursion
- (let ((liece-tcp-connection-type type))
- (as-binary-process
- (setq liece-server-process
- (liece-open-network-stream
- "IRC" " *IRC*" host (or service "irc"))))
- (setq liece-server-buffer (process-buffer liece-server-process))
- (set-buffer liece-server-buffer)
- (set-buffer-multibyte nil)
- (kill-all-local-variables)
- (buffer-disable-undo)
- (erase-buffer)
- (setq liece-server-name host)
- (run-hooks 'liece-server-hook)
- ;; return the server process
- liece-server-process))
- (error
- (setq liece-status-message-string (cadr error)
- liece-server-process nil))))
+ (let ((liece-tcp-connection-type type)
+ process)
+ (as-binary-process
+ (setq process
+ (liece-open-network-stream
+ "IRC" " *IRC*" host (or service "irc"))))
+ (setq liece-server-buffer (process-buffer process))
+ (save-excursion
+ (set-buffer liece-server-buffer)
+ (set-buffer-multibyte nil)
+ (kill-all-local-variables)
+ (buffer-disable-undo)
+ (erase-buffer))
+ process))