From: yamaoka <yamaoka>
Date: Mon, 24 Mar 2003 03:09:50 +0000 (+0000)
Subject: Synch to Oort Gnus 200303240302.
X-Git-Tag: t-gnus-6_15_18-00-quimby~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c37be9dc09e2887820fe3d7b2c5f0e0d65a351a;p=elisp%2Fgnus.git-

Synch to Oort Gnus 200303240302.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31ad817..e7fbf05 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,9 @@
 	not currently agentized.
 	(gnus-agent-expire): Use gnus-agent-expire-unagentized-dirs.
 	
+	* gnus-int.el (gnus-open-server): Report backend errors in
+	condition handler.
+
 2003-03-23  Simon Josefsson  <jas@extundo.com>
 
 	* message.el (message-idna-to-ascii-rhs-1): Don't continue outside
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