From: Philip Kaludercic <philipk@posteo.net>
Date: Tue, 14 Sep 2021 18:41:27 +0000 (+0200)
Subject: Unset mode-line-process for all buffers on reconnecting
X-Git-Tag: emacs-28.0.90~948^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3405c85ae402ae53b3b731868e18bd51ea928f37;p=emacs.git

Unset mode-line-process for all buffers on reconnecting

* rcirc.el (rcirc-sentinel): Add loop over all managed buffers
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 5537ddca108..b0374a545cd 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -900,7 +900,9 @@ If QUIET is non-nil, no not emit a message."
             (setq rcirc-reconnection-timer nil))
 
           (message "Connecting to %s...done" (or server-alias server))
-          (setq mode-line-process nil)))
+          (dolist (buffer (cons nil (mapcar 'cdr rcirc-buffer-alist)))
+	    (with-current-buffer (or buffer (current-buffer))
+	      (setq mode-line-process nil)))))
        ((string= sentinel "deleted")
         (let ((now (current-time)))
           (with-rcirc-process-buffer process