+ (condition-case error
+ (setq process
+ (funcall function (riece-server-process-name server-name)
+ (concat " *IRC*" server-name)
+ host service))
+ (error
+ (if (equal server-name "")
+ (message "Connecting to IRC server...failed: %S" error)
+ (message "Connecting to %s...failed: %S" server-name error))
+ (signal (car error) (cdr error))))