[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 32cb457 1/4: * rcirc.el (rcirc-reconnect): Set rcirc-joined
From: |
Philip Kaludercic |
Subject: |
master 32cb457 1/4: * rcirc.el (rcirc-reconnect): Set rcirc-joined |
Date: |
Sat, 25 Sep 2021 12:32:08 -0400 (EDT) |
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))