+ (if (equal server-name "")
+ (message "Logging in to IRC server...")
+ (message "Logging in to %s..." server-name))
+ (if riece-reconnect-with-password ;password incorrect or not set.
+ (unwind-protect
+ (setq password (riece-read-passwd "Password: "))
+ (setq riece-reconnect-with-password nil)))
+ (if password