[Erc-commit] [commit][master] Detect whether connection is failed before proceeding further.

[mwolson]

commit d3d4e19f6a98231e16b656239f2aa756c7f94f8a
Author: Michael W. Olson <address@hidden>
Date:   Thu Jan 17 03:31:18 2008 -0500

    Detect whether connection is failed before proceeding further.

diff --git a/ChangeLog b/ChangeLog
index 61f3e5f..adc7e21 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -20,6 +20,10 @@
        too much, and kill the buffer.  Otherwise a DoS might be possible
        by making Emacs run out of RAM.
 
+       * erc-backend.el (erc-server-connect): Detect early on whether the
+       connection attempt has failed in order to avoid confusing error
+       messages.
+
        * erc-networks.el (erc-server-alist): Add Rizon network.
 
        * erc-services.el (erc-nickserv-passwords): Add Rizon to options.
diff --git a/erc-backend.el b/erc-backend.el
index e2fb1d7..1bb3e4a 100644
--- a/erc-backend.el
+++ b/erc-backend.el
@@ -490,6 +490,8 @@ We will store server variables in the buffer given by 
BUFFER."
     (let ((process (funcall erc-server-connect-function
                             (format "erc-%s-%s" server port)
                             nil server port)))
+      (unless (processp process)
+        (error "Connection attempt failed"))
       (message "%s...done" msg)
       ;; Misc server variables
       (with-current-buffer buffer