From 31a5f889f0e7f847fff66b549a3451b5197482a7 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 20 Sep 1999 13:48:00 +0000 Subject: [PATCH] (gnus-agent-toggle-plugged): Mark the current modeline as modified. --- lisp/gnus-agent.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 465c44a..47ad92a 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -288,7 +288,8 @@ fetched will be limited to it. If not a positive integer, never consider it." (gnus-agent-close-connections) (setq gnus-plugged plugged) (gnus-run-hooks 'gnus-agent-unplugged-hook) - (setcar (cdr gnus-agent-mode-status) " Unplugged"))) + (setcar (cdr gnus-agent-mode-status) " Unplugged")) + (force-mode-line-update)) (defun gnus-agent-close-connections () "Close all methods covered by the Gnus agent." -- 1.7.10.4