Mercurial > hg > xemacs-beta

diff lisp/w3/socks.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 0293115a14e9
children 3d6bfa290dbd
line wrap: on
line diff
--- a/lisp/w3/socks.el	Mon Aug 13 09:45:48 2007 +0200
+++ b/lisp/w3/socks.el	Mon Aug 13 09:46:53 2007 +0200
@@ -1,7 +1,7 @@
 ;;; socks.el --- A Socks v5 Client for Emacs
 ;; Author: wmperry
-;; Created: 1997/01/10 00:13:05
-;; Version: 1.3
+;; Created: 1997/06/25 16:25:12
+;; Version: 1.4
 ;; Keywords: comm, firewalls
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -201,7 +201,7 @@
 	  (set-process-filter proc nil)
 	  (if (and auth-func (fboundp auth-func)
 		   (funcall auth-func proc))
-	      (message "Successfully authenticated using: %s" auth-desc)
+	      nil			; We succeeded!
 	    (delete-process proc)
 	    (error "Failed to use auth method: %s (%d)"
 		   (or auth-desc "Unknown") auth-type))
@@ -325,11 +325,8 @@
 ;; Authentication modules go here
 
 ;; Basic username/password authentication, ala RFC 1929
-;; To enable username/password authentication, uncomment the following
-;; lines:
-;;
-;; (socks-register-authentication-method 2 "Username/Password"
-;;			      'socks-username/password-auth)
+(socks-register-authentication-method 2 "Username/Password"
+				      'socks-username/password-auth)
 
 (defconst socks-username/password-auth-version 1)