(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 (file)
--- 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)))
+\f
+;;
+;; 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