From: czkmt <czkmt>
Date: Sat, 18 Dec 1999 07:30:22 +0000 (+0000)
Subject: (gnus-offline-after-get-new-news): Refer to `gnus-offline-connected',
X-Git-Tag: t-gnus-6_14_0-13~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0a53c04c5ffad4bb0378cd256b203cb958c45ed3;p=elisp%2Fgnus.git-

(gnus-offline-after-get-new-news): Refer to `gnus-offline-connected',
not `gnus-plugged'.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 5917a64..472672d 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -557,38 +557,35 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
 ;;
 (defun gnus-offline-after-get-new-news ()
   "*After getting news and mail jobs."
-  (when gnus-plugged
-    (if (memq gnus-offline-articles-to-fetch '(both mail))
-	(progn
-	  ;; Mail/both
-	  ;; send mail/news in spool
-	  (gnus-offline-empting-spool)
-	  (if (eq gnus-offline-articles-to-fetch 'mail)
-	      (progn
-		;; Send only mail and hang up...
-		(if gnus-offline-connected
-		    (gnus-offline-set-unplugged-state))
-		;; Disable fetch mail.
-		(gnus-offline-disable-fetch-mail)
-		(gnus-offline-after-jobs-done)))))
-
-    ;; News/Both
-    (if (memq gnus-offline-articles-to-fetch '(both news))
-	(progn
-	  (if gnus-offline-connected
-	      (cond ((eq gnus-offline-news-fetch-method 'nnagent)
-		     ;; Get New News (gnus-agent)
-		     (gnus-agent-toggle-plugged t)
-		     ;; fetch articles
-		     (gnus-agent-fetch-session)
-		     ;; Hang Up line. then set to offline status.
-		     (gnus-offline-set-unplugged-state)
-		     ;; All online jobs has done.
-		     (gnus-offline-after-jobs-done))
-		    (t
-		     (if (eq gnus-offline-news-fetch-method 'nnspool)
-			 ;; Get New News (nnspool)
-			 (gnspool-get-news)))))))))
+  (cond (gnus-offline-connected
+	 (when (memq gnus-offline-articles-to-fetch '(both mail))
+	   ;; Mail/both
+	   ;; send mail/news in spool
+	   (gnus-offline-empting-spool)
+	   (when (eq gnus-offline-articles-to-fetch 'mail)
+	     ;; Send only mail and hang up...
+	     (if gnus-offline-connected
+		 (gnus-offline-set-unplugged-state))
+	     ;; Disable fetch mail.
+	     (gnus-offline-disable-fetch-mail)
+	     (gnus-offline-after-jobs-done)))
+	 (when (memq gnus-offline-articles-to-fetch '(both news))
+	   ;; News/Both
+	   (cond ((eq gnus-offline-news-fetch-method 'nnagent)
+		  ;; Get New News (gnus-agent)
+		  (gnus-agent-toggle-plugged t)
+		  ;; fetch articles
+		  (gnus-agent-fetch-session)
+		  ;; Hang Up line. then set to offline status.
+		  (gnus-offline-set-unplugged-state)
+		  ;; All online jobs has done.
+		  (gnus-offline-after-jobs-done))
+		 (t
+		  (if (eq gnus-offline-news-fetch-method 'nnspool)
+		      ;; Get New News (nnspool)
+		      (gnspool-get-news))))))
+	(t
+	 nil)))
 
 ;;
 ;; Add your custom header.