1 files changed, 9 insertions, 0 deletions

@@ -74,6 +74,14 @@ If USE-TLS is non-nil, use TLS."
                       (and (erc-server-buffer-p x) x))
                     (buffer-list))))
 
+(defun erc/reconnect ()
+  "Reconnect to all IRC servers."
+  (interactive)
+  (dolist (buffer (filter-server-buffers))
+    (with-message (format "Reconnecting to server: %s" (buffer-name buffer))
+      (with-current-buffer buffer
+        (erc-server-reconnect)))))
+
 (defun erc/disconnect ()
   "Disconnect from all IRC servers."
   (interactive)
@@ -81,6 +89,7 @@ If USE-TLS is non-nil, use TLS."
     (with-message (format "Killing server buffer: %s" (buffer-name buffer))
       (with-current-buffer buffer
         (erc-quit-server erc/bye-message))))
+  ;; TODO: kill all channel buffers
   (force-mode-line-update))
 
 (defun acdw-erc/prompt ()