mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Philip Kaludercic 2021-09-25 16:25:03 +02:00
parent 285f59cbe2
commit 32cb457529
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/rcirc.el
View file

@ -840,7 +840,8 @@ If QUIET is non-nil, no not emit a message."
(dolist (buffer (mapcar #'cdr rcirc-buffer-alist)) (dolist (buffer (mapcar #'cdr rcirc-buffer-alist))
(when (buffer-live-p buffer) (when (buffer-live-p buffer)
(with-current-buffer 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))) (let ((nprocess (apply #'rcirc-connect conn-info)))
(when (and (< rcirc-failed-attempts rcirc-reconnect-attempts) (when (and (< rcirc-failed-attempts rcirc-reconnect-attempts)
(eq (process-status nprocess) 'failed)) (eq (process-status nprocess) 'failed))