From: czkmt <czkmt>
Date: Sun, 5 Dec 1999 12:44:51 +0000 (+0000)
Subject: (gnus): New advice. synchronize `gnus-offline-connected' with
X-Git-Tag: t-gnus-6_14_0-01~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3da98e8ee7bffd7b52350dbb4c37fa086f69158f;p=elisp%2Fgnus.git-

(gnus): New advice. synchronize `gnus-offline-connected' with
`gnus-plugged'.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 0510161..fcb1504 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -985,6 +985,15 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
 			      gnus-offline-interval-time))
   (if (= gnus-offline-interval-time 0)
       (gnus-demon-remove-handler 'gnus-offline-gnus-get-new-news t)))
+
+;;
+;; Code for making Gnus and Gnus Offline cooperate each other.
+;;
+
+(defadvice gnus (after gnus-offline-ad activate)
+  "Synchronize `gnus-offline-connected' with `gnus-plugged'."
+  (and (featurep 'gnus-agent)
+       (setq gnus-offline-connected gnus-plugged)))
 ;;
 ;;
 ;;; gnus-offline.el ends here