From: Philip Kaludercic <philipk@posteo.net>
Date: Sat, 25 Sep 2021 14:25:03 +0000 (+0200)
Subject: * rcirc.el (rcirc-reconnect): Set rcirc-joined
X-Git-Tag: emacs-28.0.90~639
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32cb457529e2adb0feaf079de8e8475f7fbc6737;p=emacs.git

* rcirc.el (rcirc-reconnect): Set rcirc-joined
---

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))