From: Krzysztof Jurewicz <krzysztof.jurewicz@gmail.com>
Date: Sun, 27 Dec 2015 08:04:02 +0000 (+0100)
Subject: Fix auth source lookups from erc with port numbers
X-Git-Tag: emacs-25.0.90~353
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9d87dd8791d4e77929f21e4f73d92ef966722cc;p=emacs.git

Fix auth source lookups from erc with port numbers

* lisp/erc/erc.el (erc-open): `auth-source' wants strings, not port
numbers (bug#20541).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 70e37348b6a..04e99c7b884 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -2025,7 +2025,8 @@ Returns the buffer for the given server or channel."
                            (auth-source-search :host server
                                                :max 1
                                                :user nick
-                                               :port port
+                                               ;; secrets.el wouldn’t accept a number
+                                               :port (if (numberp port) (number-to-string port) port)
                                                :require '(:secret)))
                       :secret)))
                 (if (functionp secret)