[Emacs-diffs] Changes to emacs/lisp/epa-file.el,v

[Michael W. Olson]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael W. Olson <mwolson>      08/03/16 04:04:15

Index: epa-file.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/epa-file.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- epa-file.el 10 Feb 2008 20:57:46 -0000      1.4
+++ epa-file.el 16 Mar 2008 04:04:15 -0000      1.5
@@ -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 ()