From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Fri, 17 Sep 2010 22:01:00 +0000 (+0200)
Subject: Save result so that it doesn't say "failed" all the time.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=363ae89da691df7ebb37508734084753cf3939a6;p=gnus

Save result so that it doesn't say "failed" all the time.

Found by Adam Sjøgren.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6458bdf5d..069170bf2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-int.el (gnus-check-server): Save result so that it doesn't say
+	"failed" all the time.
+
 	* gnus.el: Throughout all files, replace (save-excursion (set-buffer
 	...)) with (with-current-buffer ... ).
 
diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 88d355507..24764c082 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -179,7 +179,7 @@ If it is down, start it up (again)."
 			(format " on %s" (nth 1 method)))))
       (gnus-run-hooks 'gnus-open-server-hook)
       (prog1
-	  (gnus-open-server method)
+	  (setq result (gnus-open-server method))
 	(unless silent
 	  (gnus-message 5 "Opening %s server%s...%s" (car method)
 			(if (equal (nth 1 method) "") ""