(gnus-agent-toggle-plugged): Mark the current modeline as modified.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 465c44a..47ad92a 100644 (file)
--- 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."