Fix up the creation defaults.

[gnus] / lisp / auth-source.el

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 3081bc2..1db6b56 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -977,16 +977,19 @@ See `auth-source-search' for details on SPEC."
                                      (or
                                       (auth-source-netrc-element-or-first
                                        (aget valist 'user))
+                                      (plist-get artificial :user)
                                       "[any user]")
                                      (or
                                       (auth-source-netrc-element-or-first
                                        (aget valist 'host))
+                                      (plist-get artificial :host)
                                       "[any host]")
                                      (or
                                       (auth-source-netrc-element-or-first
                                        (aget valist 'port))
+                                      (plist-get artificial :port)
                                       "[any port]"))))
-               (t data)))
+               (t (or data default))))
 
         (when data
           (setq artificial (plist-put artificial