From fef7aa9ec6e2c32af894ba64e4b8b451218819ff Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sun, 16 Mar 2008 04:04:15 +0000 Subject: [PATCH] EasyPG: Fix bug with C-x C-s after M-x epa-file-select-keys. --- lisp/epa-file.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 () -- 2.39.5