auth-source.el (auth-source-ensure-strings): Don't make a list out of 't' (Bug#22188)
authorEli Zaretskii <eliz@gnu.org>
Thu, 17 Dec 2015 22:58:38 +0000 (22:58 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Thu, 17 Dec 2015 22:58:38 +0000 (22:58 +0000)
Synch with the emacs-25 branch.
The changes having not been merged to the Emacs trunk are in:
http://www.jpl.org/ftp/pub/tmp/MaGnus-to-Emacs-trunk-unfinished.patch

* auth-source.el (auth-source-ensure-strings):
Don't make a list out of 't'.  (Bug#22188)

lisp/ChangeLog
lisp/auth-source.el

index 4e1430e..aab4aec 100644 (file)
@@ -1,3 +1,8 @@
+2015-12-17  Eli Zaretskii  <eliz@gnu.org>
+
+       * auth-source.el (auth-source-ensure-strings):
+       Don't make a list out of 't'.  (Bug#22188)
+
 2015-12-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * dgnushack.el (byte-optimize-apply): Make the use-mapcan advice work
 2015-12-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * dgnushack.el (byte-optimize-apply): Make the use-mapcan advice work
index d263f78..45ff3b7 100644 (file)
@@ -929,13 +929,15 @@ while \(:host t) would find all host entries."
   prompt)
 
 (defun auth-source-ensure-strings (values)
   prompt)
 
 (defun auth-source-ensure-strings (values)
-  (unless (listp values)
-    (setq values (list values)))
-  (mapcar (lambda (value)
-            (if (numberp value)
-                (format "%s" value)
-              value))
-          values))
+  (if (eq values t)
+      values
+    (unless (listp values)
+      (setq values (list values)))
+    (mapcar (lambda (value)
+             (if (numberp value)
+                 (format "%s" value)
+               value))
+           values)))
 
 ;;; Backend specific parsing: netrc/authinfo backend
 
 
 ;;; Backend specific parsing: netrc/authinfo backend