From: ueno <ueno>
Date: Mon, 20 Sep 1999 13:48:00 +0000 (+0000)
Subject: (gnus-agent-toggle-plugged): Mark the current modeline as modified.
X-Git-Tag: t-gnus-6_13_1-06~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=31a5f889f0e7f847fff66b549a3451b5197482a7;p=elisp%2Fgnus.git-

(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
--- 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."