diff options
| author | Michael Olson <mwolson@gnu.org> | 2008-03-16 04:04:15 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2008-03-16 04:04:15 +0000 |
| commit | fef7aa9ec6e2c32af894ba64e4b8b451218819ff (patch) | |
| tree | 555462f35b65a46e6841947fa92d8114e5aba217 /lisp/epa-file.el | |
| parent | 2112d731b8e3f0c931b8c5404d2a9794da941990 (diff) | |
| download | emacs-fef7aa9ec6e2c32af894ba64e4b8b451218819ff.tar.gz | |
EasyPG: Fix bug with C-x C-s after M-x epa-file-select-keys.
Diffstat (limited to 'lisp/epa-file.el')
| -rw-r--r-- | lisp/epa-file.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/epa-file.el b/lisp/epa-file.el index e3c4a83deb8..558048403ce 100644 --- a/lisp/epa-file.el +++ b/lisp/epa-file.el @@ -285,10 +285,13 @@ If no one is selected, symmetric encryption will be performed. " (interactive) (make-local-variable 'epa-file-encrypt-to) (setq epa-file-encrypt-to + (mapcar + (lambda (key) + (epg-sub-key-id (car (epg-key-sub-key-list key)))) (epa-select-keys (epg-make-context) "Select recipents for encryption. -If no one is selected, symmetric encryption will be performed. "))) +If no one is selected, symmetric encryption will be performed. ")))) ;;;###autoload (defun epa-file-enable () |