Let Tramp save passwords

* lisp/auth-source.el (auth-source-secrets-saver): New defun.
(auth-source-secrets-create): Use it.

* lisp/net/secrets.el (secrets-struct-secret-content-type):
(secrets-create-item): Do not hard-code :xdg:schema.

* lisp/net/tramp.el (tramp-password-save-function): New defvar.
(tramp-read-passwd): Set it properly.
(tramp-process-actions):
* lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
Save password.

* lisp/net/tramp-cmds.el (tramp-bug): Don't report
`tramp-password-save-function'.

* test/lisp/net/secrets-tests.el (secrets-test03-items):
Extend test with another :xdg:schema.

1 files changed, 12 insertions, 3 deletions

diff --git a/test/lisp/net/secrets-tests.el b/test/lisp/net/secrets-tests.el
index dc9c7f1004a..23512d48ee5 100644
--- a/test/lisp/net/secrets-tests.el
+++ b/test/lisp/net/secrets-tests.el
@@ -169,9 +169,16 @@
         (should
          (equal
           (secrets-get-attributes "session" "bar")
-          '((:host . "remote-host") (:user . "joe")
-            (:method . "sudo")
-            (:xdg:schema . "org.freedesktop.Secret.Generic"))))
+          '((:xdg:schema . "org.freedesktop.Secret.Generic")
+            (:host . "remote-host") (:user . "joe") (:method . "sudo"))))
+
+        ;; Create an item with another schema.
+        (secrets-create-item
+         "session" "baz" "secret" :xdg:schema "org.gnu.Emacs.foo")
+        (should
+         (equal
+          (secrets-get-attributes "session" "baz")
+          '((:xdg:schema . "org.gnu.Emacs.foo"))))
 
         ;; Delete them.
         (dolist (item (secrets-list-items "session"))
@@ -206,6 +213,8 @@
 
         ;; Search the items.
         (should-not (secrets-search-items "session" :user "john"))
+        (should-not
+         (secrets-search-items "session" :xdg:schema "org.gnu.Emacs.foo"))
         (should
          (equal
           (sort (secrets-search-items "session" :user "joe") 'string-lessp)