# HG changeset patch
# User Michael Olson <mwolson@gnu.org>
# Date 1205640255 0
# Node ID d876f53724722682c0c9b52f3c934ac6d4a1fb73
# Parent  6c85b8971fe36da07b741ddb44e7c2363fcc3078
EasyPG: Fix bug with C-x C-s after M-x epa-file-select-keys.

diff -r 6c85b8971fe3 -r d876f5372472 lisp/epa-file.el
--- a/lisp/epa-file.el	Sun Mar 16 01:58:15 2008 +0000
+++ b/lisp/epa-file.el	Sun Mar 16 04:04:15 2008 +0000
@@ -285,10 +285,13 @@
   (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 ()