diff --git a/.emacs.d/erc-5.3/erc-backend.el b/.emacs.d/erc-5.3/erc-backend.el index 70ce789..928770e 100644 --- a/.emacs.d/erc-5.3/erc-backend.el +++ b/.emacs.d/erc-5.3/erc-backend.el @@ -618,13 +618,11 @@ EVENT is the message received from the closed connection process." (condition-case err (progn (setq erc-server-reconnecting nil) - (erc-server-reconnect) - (setq erc-server-reconnect-count 0)) + (setq erc-server-reconnect-count (1+ erc-server-reconnect-count)) + (erc-server-reconnect)) (error (when (buffer-live-p buffer) (set-buffer buffer) - (if (integerp erc-server-reconnect-attempts) - (setq erc-server-reconnect-count - (1+ erc-server-reconnect-count)) + (unless (integerp erc-server-reconnect-attempts) (message "%s ... %s" "Reconnecting until we succeed" "kill the ERC server buffer to stop")) diff --git a/.emacs.d/erc-5.3/erc.el b/.emacs.d/erc-5.3/erc.el index 9aa5e8b..802ae66 100644 --- a/.emacs.d/erc-5.3/erc.el +++ b/.emacs.d/erc-5.3/erc.el @@ -4267,6 +4267,7 @@ Set user modes and run `erc-after-connect' hook." (nick (car (erc-response.command-args parsed))) (buffer (process-buffer proc))) (setq erc-server-connected t) + (setq erc-server-reconnect-count 0) (erc-update-mode-line) (erc-set-initial-user-mode nick buffer) (erc-server-setup-periodical-ping buffer)