* riece.el (riece-exit): Don't clear riece-user-list-buffer and

[riece] / lisp / riece.el

diff --git a/lisp/riece.el b/lisp/riece.el
index 8cdb159..4e42c95 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -206,10 +206,10 @@ If optional argument SAFE is nil, overwrite previous definitions."
     "o" riece-command-set-operators
     "v" riece-command-set-voices
     "f" riece-command-finger
-    " " riece-command-nick-scroll-up
-    "\177" riece-command-nick-scroll-down
-    [delete] riece-command-nick-scroll-down
-    [backspace] riece-command-nick-scroll-down
+    " " riece-command-user-list-scroll-up
+    "\177" riece-command-user-list-scroll-down
+    [delete] riece-command-user-list-scroll-down
+    [backspace] riece-command-user-list-scroll-down
     "c" riece-command-select-command-buffer)
 
   (riece-define-keys riece-channel-list-mode-map
@@ -273,7 +273,7 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
     (if riece-max-buffer-size
        (setq riece-shrink-buffer-idle-timer
              (riece-run-with-idle-timer
-              riece-shrink-buffer-idle-time-delay nil
+              riece-shrink-buffer-idle-time-delay t
               (lambda ()
                 (let ((buffers riece-buffer-list))
                   (while buffers
@@ -284,8 +284,13 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
                         (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))
+      (while server-list
+       (riece-command-open-server (car server-list))
+       (setq server-list (cdr server-list))))
     (run-hooks 'riece-startup-hook)
     (message "%s" (substitute-command-keys
                   "Type \\[describe-mode] for help"))))
@@ -318,6 +323,7 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
   (setq riece-server nil
        riece-current-channels nil
        riece-current-channel nil
+       riece-channel-buffer nil
        riece-channel-buffer-alist nil
        riece-user-indicator nil
        riece-long-channel-indicator "None"