- (let ((server-name
- (if (or confirm (null riece-server))
- (completing-read "Server: " riece-server-alist)
- riece-server)))
- (riece-open-server (riece-server-name-to-server server-name)))
+ (if (or confirm (null riece-server))
+ (setq riece-server (completing-read "Server: " riece-server-alist)))
+ (if (stringp riece-server)
+ (setq riece-server (riece-server-name-to-server riece-server)))
+ (riece-open-server riece-server)