(gnus-open-server): Say failed server's name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0237307..dd248da 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-int.el (gnus-open-server): Say failed server's name.
+
 2006-11-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * pgg-pgp.el (pgg-pgp-process-region): Change `args' from a list of
@@ -25,12 +29,12 @@
 2006-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-summary-limit-to-headers): New command and
-       keystroke. 
+       keystroke.
        (gnus-summary-limit-to-bodies): Implement headersp.
 
 2006-11-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
-       * dns.el (query-dns): Protect against "Process dns deleted" strings. 
+       * dns.el (query-dns): Protect against "Process dns deleted" strings.
 
 2006-11-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 586b005..d0943f1 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -209,11 +209,12 @@ If it is down, start it up (again)."
   "Open a connection to GNUS-COMMAND-METHOD."
   (when (stringp gnus-command-method)
     (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
-  (let ((elem (assoc gnus-command-method gnus-opened-servers)))
+  (let ((elem (assoc gnus-command-method gnus-opened-servers))
+       (server (gnus-method-to-server-name gnus-command-method)))
     ;; If this method was previously denied, we just return nil.
     (if (eq (nth 1 elem) 'denied)
        (progn
-         (gnus-message 1 "Denied server")
+         (gnus-message 1 "Denied server %s" server)
          nil)
       ;; Open the server.
       (let* ((open-server-function (gnus-get-function gnus-command-method 'open-server))
@@ -224,11 +225,11 @@ If it is down, start it up (again)."
                           (nthcdr 2 gnus-command-method))
                (error
                 (gnus-message 1 (format
-                                 "Unable to open server due to: %s"
-                                 (error-message-string err)))
+                                 "Unable to open server %s due to: %s"
+                                 server (error-message-string err)))
                 nil)
                (quit
-                (gnus-message 1 "Quit trying to open server")
+                (gnus-message 1 "Quit trying to open server %s" server)
                 nil)))
             open-offline)
        ;; If this hasn't been opened before, we add it to the list.
@@ -253,9 +254,9 @@ If it is down, start it up (again)."
                              ((and
                               (not gnus-batch-mode)
                               (gnus-y-or-n-p
-                               (format "Unable to open %s:%s, go offline? "
-                                       (car gnus-command-method)
-                                       (cadr gnus-command-method))))
+                               (format
+                                "Unable to open server %s, go offline? "
+                                server)))
                               (setq open-offline t)
                               'offline)
                              (t