Fix test failures of test/lisp/auth-source-pass-tests.el

Failures introduced by recent "Make auth-source-pass-search understand
port lists", commit 92fda5a7f92162d610d57df14372bcfcee1f01b6.

* lisp/auth-source-pass.el
(auth-source-pass--generate-entry-suffixes): Fix test failures.

diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el
index dfdb7596fae7365ab6de88fabdb023c9436df61b..51322e4ec141e4f3c2e416c4c92983869f40309e 100644 (file)
--- a/lisp/auth-source-pass.el
+++ b/lisp/auth-source-pass.el
@@ -277,7 +277,7 @@ PORT may be a list of ports."
                   (seq-mapcat
                    (lambda (p)
                      (auth-source-pass--name-port-user-suffixes domain user p))
-                   (if (listp port) port (list port))))
+                   (if (consp port) port (list port))))
                 domains)))
 
 (defun auth-source-pass--domains (name-components)