Small auth-source-netrc-create fix

* lisp/auth-source.el (auth-source-netrc-create):
Fix handling of auth-source-netrc-use-gpg-tokens being a list.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 8ef5f7140ac08e7e6990e66adde4338d63eada1d..66e1897b8777e7c4b2fd262ae47659f6b172ef77 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1315,9 +1315,7 @@ See `auth-source-search' for details on SPEC."
                                                    (string-match (car item) file))
                                            (setq ret (cdr item))
                                            (setq check nil)))
-                                       ;; FIXME: `ret' unused.
-                                       ;; Should we return it here?
-                                       ))
+                                       ret))
                                     (t 'never)))
                                   (plain (or (eval default) (read-passwd prompt))))
                              ;; ask if we don't know what to do (in which case