From 32cb457529e2adb0feaf079de8e8475f7fbc6737 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sat, 25 Sep 2021 16:25:03 +0200 Subject: [PATCH] * rcirc.el (rcirc-reconnect): Set rcirc-joined --- lisp/net/rcirc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index bc67562d2d3..4e0dd5a71f8 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -840,7 +840,8 @@ If QUIET is non-nil, no not emit a message." (dolist (buffer (mapcar #'cdr rcirc-buffer-alist)) (when (buffer-live-p buffer) (with-current-buffer buffer - (setq mode-line-process ":connecting")))) + (setq rcirc-joined (current-time) + mode-line-process ":connecting")))) (let ((nprocess (apply #'rcirc-connect conn-info))) (when (and (< rcirc-failed-attempts rcirc-reconnect-attempts) (eq (process-status nprocess) 'failed)) -- 2.39.2