X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/d2fc7e3d0f6f57f962cbd94df3bf4fd15a37bb68..f0ee9096ba9f35b9e6b85fb5c5f5f56168a67824:/lisp/url/url-gw.el

diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el
index 7d80f2f672..b1cc8a29e3 100644
--- a/lisp/url/url-gw.el
+++ b/lisp/url/url-gw.el
@@ -1,8 +1,9 @@
 ;;; url-gw.el --- Gateway munging for URL loading
 
-;; Copyright (C) 1997-1998, 2004-2011  Free Software Foundation, Inc.
+;; Copyright (C) 1997-1998, 2004-2014 Free Software Foundation, Inc.
 
 ;; Author: Bill Perry <wmperry@gnu.org>
+;; Maintainer: emacs-devel@gnu.org
 ;; Keywords: comm, data, processes
 
 ;; This file is part of GNU Emacs.
@@ -22,7 +23,6 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))
 (require 'url-vars)
 
 ;; Fixme: support SSH explicitly or via a url-gateway-rlogin-program?
@@ -72,12 +72,12 @@ This list will be executed as a command after logging in via telnet."
   :group 'url-gateway)
 
 (defcustom url-gateway-telnet-login-prompt "^\r*.?login:"
-  "Prompt that tells us we should send our username when loggin in w/telnet."
+  "Prompt that tells us we should send our username when logging in w/telnet."
   :type 'regexp
   :group 'url-gateway)
 
 (defcustom url-gateway-telnet-password-prompt "^\r*.?password:"
-  "Prompt that tells us we should send our password when loggin in w/telnet."
+  "Prompt that tells us we should send our password when logging in w/telnet."
   :type 'regexp
   :group 'url-gateway)
 
@@ -233,8 +233,8 @@ Might do a non-blocking connection; use `process-status' to check."
 	  ;; right coding systems in both Emacs and XEmacs.
 	  (let ((coding-system-for-read 'binary)
 		(coding-system-for-write 'binary))
-	    (setq conn (case gw-method
-			 ((tls ssl native)
+	    (setq conn (pcase gw-method
+			 ((or `tls `ssl `native)
 			  (if (eq gw-method 'native)
 			      (setq gw-method 'plain))
 			  (open-network-stream
@@ -243,13 +243,13 @@ Might do a non-blocking connection; use `process-status' to check."
 			   ;; Use non-blocking socket if we can.
 			   :nowait (featurep 'make-network-process
 					     '(:nowait t))))
-			 (socks
+			 (`socks
 			  (socks-open-network-stream name buffer host service))
-			 (telnet
+			 (`telnet
 			  (url-open-telnet name buffer host service))
-			 (rlogin
+			 (`rlogin
 			  (url-open-rlogin name buffer host service))
-			 (otherwise
+			 (_
 			  (error "Bad setting of url-gateway-method: %s"
 				 url-gateway-method))))))
       conn)))