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

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index bc67562d2d3e3b568a119261e4c900d5d99f24c1..4e0dd5a71f879d7f4a6fcbed81229523929914e4 100644 (file)
--- 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))