From dc4c9f4f2cda9deee4eab993f496b20ee779d833 Mon Sep 17 00:00:00 2001 From: czkmt Date: Sat, 11 Dec 1999 03:29:29 +0000 Subject: [PATCH] (gnus-offline-set-unplugged-state): Call the original `gnus-agent-toggle-plugged'. --- lisp/gnus-offline.el | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el index 3f504cf..446dcf8 100644 --- a/lisp/gnus-offline.el +++ b/lisp/gnus-offline.el @@ -408,18 +408,15 @@ Please check your .emacs or .gnus.el to work nnspool fine.") activate preactivate) "Also toggle gnus-offline `connected--disconnected' status." (interactive (list (not gnus-offline-connected))) - (cond ((interactive-p) - (if (ad-get-arg 0) - (progn - (setq gnus-offline-connected (ad-get-arg 0)) - ad-do-it - ;; Set send mail/news function to offline functions. - (gnus-offline-set-online-sendmail-function) - (gnus-offline-set-online-post-news-function)) - ;; Set to offline status - (gnus-offline-set-unplugged-state))) + (cond ((ad-get-arg 0) + (setq gnus-offline-connected (ad-get-arg 0)) + ad-do-it + ;; Set send mail/news function to offline functions. + (gnus-offline-set-online-sendmail-function) + (gnus-offline-set-online-post-news-function)) (t - ad-do-it))) + ;; Set to offline status + (gnus-offline-set-unplugged-state)))) (defadvice gnus-agent-expire (around gnus-offline-advice activate preactivate) "Advice not to delete new articles." @@ -639,7 +636,7 @@ Please check your .emacs or .gnus.el to work nnspool fine.") (funcall gnus-offline-hangup-function)) (setq gnus-offline-connected nil) (if (eq gnus-offline-news-fetch-method 'nnagent) - (gnus-agent-toggle-plugged nil)) + (funcall 'ad-Orig-gnus-agent-toggle-plugged nil)) ;; Set send mail/news function to offline functions. (gnus-offline-set-offline-sendmail-function) @@ -809,9 +806,7 @@ Please check your .emacs or .gnus.el to work nnspool fine.") (format (gnus-offline-gettext 'interval-time-3) gnus-offline-interval-time))) (gnus-offline-processed-by-timer)) -;; -;; Expire articles using gnus-agent. -;; + ;; ;; Menu. ;; -- 1.7.10.4