*** /tmp/ediffxgQG8f	2021-01-26 19:56:25.215637839 +0100
--- /usr/local/src/emacs/lisp/auth-source.el	2021-01-26 17:30:38.844175268 +0100
***************
*** 1654,1659 ****
--- 1654,1660 ----
  (cl-defun auth-source-secrets-create (&rest spec
                                        &key backend host port create
                                        &allow-other-keys)
+   (when auth-source-save-behavior
    (let* ((base-required '(host user port secret label))
           ;; we know (because of an assertion in auth-source-search) that the
           ;; :create parameter is either t or a list (which includes nil)
***************
*** 1795,1801 ****
         (lambda ()
  	 (auth-source-secrets-saver collection item secret args))))

!     (list artificial)))

  (defun auth-source-secrets-saver (collection item secret args)
    "Wrapper around `secrets-create-item', prompting along the way.
--- 1796,1802 ----
         (lambda ()
  	 (auth-source-secrets-saver collection item secret args))))

!     (list artificial))))

  (defun auth-source-secrets-saver (collection item secret args)
    "Wrapper around `secrets-create-item', prompting along the way.