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 6458bdf..069170b 100644 (file)
--- 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 88d3555..24764c0 100644 (file)
--- 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) "") ""