Fix typo.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index d53ffe6..e5a2e31 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -696,7 +696,7 @@ while \(:host t) would find all host entries."
   (mapcar (lambda (value)
            (if (numberp value)
                (format "%s" value)
-             port))
+             value))
          values))
 
 (defvar auth-source-netrc-cache nil)