; Add fixme comments re password caching

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 3855d7b796447ee4528c0313507cb080ec3d69ea..dc10763da86669851c3a39e17dec54b2901c5c45 100644 (file)
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -647,6 +647,7 @@ The passphrase is read and cached."
       (when passphrase
        (let ((password-cache-expiry (mml-secure-cache-expiry-interval
                                      (epg-context-protocol context))))
+         ;; FIXME test passphrase works before caching it.
          (password-cache-add password-cache-key-id passphrase))
        (mml-secure-add-secret-key-id password-cache-key-id)
        (copy-sequence passphrase)))))

diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el
index d55cea724fbc6ae76342f41367e9dd60c5d1ebb2..ab2a5b0f81334f40f5c5db4a7962e837fe1c1c41 100644 (file)
--- a/lisp/gnus/smime.el
+++ b/lisp/gnus/smime.el
@@ -238,6 +238,7 @@ password under `cache-key'."
          "Passphrase for secret key (RET for no passphrase): " cache-key)))
     (if (string= passphrase "")
        nil
+      ;; FIXME test passphrase works before caching it.
       (and passphrase cache-key (password-cache-add cache-key passphrase))
       passphrase)))
 

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 601123925372bd2361646948d242c0aac760a7d3..fe9f1976944fb548baa52c0d63ae1e03c1b37238 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4459,6 +4459,7 @@ Invokes `password-read' if available, `read-passwd' else."
                                          auth-passwd))))
               ;; Try the password cache.
               (let ((password (password-read pw-prompt key)))
+                ;; FIXME test password works before caching it.
                 (password-cache-add key password)
                 password)
               ;; Else, get the password interactively.