diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/mml-sec.el | 1 | ||||
| -rw-r--r-- | lisp/gnus/smime.el | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index 3855d7b7964..dc10763da86 100644 --- 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 d55cea724fb..ab2a5b0f813 100644 --- 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))) |