diff options
| author | Daiki Ueno <ueno@unixuser.org> | 2010-10-10 10:45:45 +0900 |
|---|---|---|
| committer | Daiki Ueno <ueno@unixuser.org> | 2010-10-10 10:45:45 +0900 |
| commit | 446b12da60f307f6be854cae341be194213a5ab1 (patch) | |
| tree | 42dd597c884e05f23ea2f5286bb4859cbfec4cfe /lisp/epa.el | |
| parent | f7aa248a5b1ce15ac2a3b70b4a55833d9d1eb44b (diff) | |
| download | emacs-446b12da60f307f6be854cae341be194213a5ab1.tar.gz | |
Simplify 2010-10-09T13:27:24Z!larsi@gnus.org.
* epa.el (epa-passphrase-callback-function): Display filename
passed as the 3rd arg.
* epa-file.el (epa-file-passphrase-callback-function): Pass
filename to epa-passphrase-callback-function.
Diffstat (limited to 'lisp/epa.el')
| -rw-r--r-- | lisp/epa.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index 49ff3455c23..ca0f07d5bae 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -637,12 +637,10 @@ If SECRET is non-nil, list secret keys instead of public keys." (if (eq key-id 'SYM) (read-passwd (format "Passphrase for symmetric encryption%s: " - (let ((elem (epg-context-passphrase-callback context))) - ;; Add the file name to the prompt, if any. - (if (and (consp elem) - (stringp (cdr elem))) - (format " for %s" (cdr elem)) - ""))) + ;; Add the file name to the prompt, if any. + (if (stringp handback) + (format " for %s" handback) + "")) (eq (epg-context-operation context) 'encrypt)) (read-passwd (if (eq key-id 'PIN) |