From: czkmt <czkmt>
Date: Wed, 8 Dec 1999 19:30:57 +0000 (+0000)
Subject: (gnus): New advice. Always synchronize the modeline "Plugged" status
X-Git-Tag: t-gnus-6_14_0-05~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2143764e8da9fb2c9c431bcd467b54710a6700f7;p=elisp%2Fgnus.git-

(gnus): New advice. Always synchronize the modeline "Plugged" status
display with the value of `gnus-plugged'.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 889283f..c1eebb1 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -320,6 +320,10 @@ fetched will be limited to it. If not a positive integer, never consider it."
   (setq gnus-plugged t)
   (gnus))
 
+(defadvice gnus (after gnus-agent-advice activate preactivate)
+  "Update modeline."
+  (gnus-agent-toggle-plugged gnus-plugged))
+
 ;;;###autoload
 (defun gnus-agentize ()
   "Allow Gnus to be an offline newsreader.