master 32cb457 1/4: * rcirc.el (rcirc-reconnect): Set rcirc-joined

[Philip Kaludercic]

branch: master
commit 32cb457529e2adb0feaf079de8e8475f7fbc6737
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    * 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 bc67562..4e0dd5a 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))