Query the user for whether to store the credentials.

[gnus] / lisp / gnus-int.el

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 2ca3205..3245b16 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -181,10 +181,15 @@ If it is down, start it up (again)."
       (prog1
          (setq result (gnus-open-server method))
        (unless silent
-         (gnus-message 5 "Opening %s server%s...%s" (car method)
-                       (if (equal (nth 1 method) "") ""
-                         (format " on %s" (nth 1 method)))
-                       (if result "done" "failed")))))))
+         (gnus-message
+          (if result 5 3)
+          "Opening %s server%s...%s" (car method)
+          (if (equal (nth 1 method) "") ""
+            (format " on %s" (nth 1 method)))
+          (if result
+              "done"
+            (format "failed: %s"
+                    (nnheader-get-report-string (car method))))))))))
 
 (defun gnus-get-function (method function &optional noerror)
   "Return a function symbol based on METHOD and FUNCTION."
@@ -281,14 +286,7 @@ If it is down, start it up (again)."
                  ;; recurse to open the agent's backend.
                  (setq open-offline (eq gnus-server-unopen-status 'offline))
                  gnus-server-unopen-status)
-                ((and
-                  (not gnus-batch-mode)
-                  (gnus-y-or-n-p
-                   (format
-                    "Unable to open server %s (%s), go offline? "
-                    server
-                    (nnheader-get-report
-                     (car gnus-command-method)))))
+                ((not gnus-batch-mode)
                  (setq open-offline t)
                  'offline)
                 (t