X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-int.el;h=835cb91c322b3373fddc66d56f8d3b121ef4dfd5;hb=1c37be9dc09e2887820fe3d7b2c5f0e0d65a351a;hp=3d6c73523e9e33409e336b38e50a2398bf4bd56a;hpb=0af657dc08330d83ff62fa31d88e782286469f95;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 3d6c735..835cb91 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -203,13 +203,17 @@ If it is down, start it up (again)."
 	  nil)
       ;; Open the server.
       (let ((result
-	     (condition-case ()
+	     (condition-case err
 		 (funcall (gnus-get-function gnus-command-method 'open-server)
 			  (nth 1 gnus-command-method)
 			  (nthcdr 2 gnus-command-method))
-               (error nil)
+               (error 
+                (gnus-message 1 (format 
+                                 "Unable to open server due to: %s"
+                                 (error-message-string err)))
+                nil)
 	       (quit
-		(message "Quit trying to open server")
+		(gnus-message 1 "Quit trying to open server")
 		nil))))
 	;; If this hasn't been opened before, we add it to the list.
 	(unless elem