From: Jun Hao <jun_hao@aol.com>
Date: Mon, 25 Apr 2016 16:02:08 +0000 (+0200)
Subject: Pass in port only if provided by caller in the OS X keychain
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/ff9de7b38a3a316529c73e36645182055e2addc4

Pass in port only if provided by caller in the OS X keychain

* lisp/auth-source.el (auth-source-macos-keychain-search): Pass in
port only if provided (bug#23374).
---

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index d691b54d67..fe28a02c20 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1735,7 +1735,7 @@ entries for git.gnus.org:
          (items (catch 'match
                   (dolist (host hosts)
                     (dolist (port ports)
-                      (let* ((port (format "%S" port))
+                      (let* ((port (if port (format "%S" port)))
                              (items (apply #'auth-source-macos-keychain-search-items
                                            coll
                                            type