-(defun riece-start-server (server &optional server-name)
- (if server-name
- (message "Connecting to IRC server on %s..." server-name)
- (message "Connecting to IRC server..."))
- (prog1 (riece-open-server server server-name)
- (if server-name
- (message "Connecting to IRC server on %s...done" server-name)
- (message "Connecting to IRC server...done"))))
-