(riece-shrink-buffer (car buffers)))
(setq buffers (cdr buffers))))))))
(switch-to-buffer riece-command-buffer)
+ (riece-display-connect-signals)
(riece-redisplay-buffers)
(riece-open-server riece-server "")
(let ((server-list riece-startup-server-list))
(setq riece-server nil
riece-current-channels nil
riece-current-channel nil
+ riece-channel-buffer nil
+ riece-user-list-buffer nil
+ riece-channel-list-buffer nil
riece-channel-buffer-alist nil
riece-user-indicator nil
riece-long-channel-indicator "None"