Re: Suggestion: epa-file-select-keys should show currently selected keys

[Daiki Ueno]

>>>>> In <address@hidden> 
>>>>>   Sascha Wilde <address@hidden> wrote:
> Sascha Wilde <address@hidden> wrote:
> > 1. Am I right that `M-x epa-file-select-keys' can be used to change the
> >    recipients in an existing *.gpg file?  If so, that should be
> >    documented more clearly (and might be worth an default binding?)

> Unfortunately it seems that I'm mistaken:
> - Open an existing *.gpg file
> - do M-x epa-file-select-keys and select some keys
> - do any change, so that saving is possible (a problem on its own, as
>   changing the list of recipients should be considered a relevant change
>   it self)
> - C-x C-s leads to an error:

> Debugger entered--Lisp error: (file-error "Opening output file" stringp
> (epg-key . [ultimate ((epg-sub-key . [ultimate (sign certify) nil 17

Ah, that is apperantly a bug.  The attached patch will fix this.

Index: lisp/epa-file.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/epa-file.el,v
retrieving revision 1.4
diff -w -c -r1.4 epa-file.el
*** lisp/epa-file.el    10 Feb 2008 20:57:46 -0000      1.4
--- lisp/epa-file.el    27 Feb 2008 08:06:23 -0000
***************
*** 285,294 ****
    (interactive)
    (make-local-variable 'epa-file-encrypt-to)
    (setq epa-file-encrypt-to
        (epa-select-keys
         (epg-make-context)
         "Select recipents for encryption.
! If no one is selected, symmetric encryption will be performed.  ")))
  
  ;;;###autoload
  (defun epa-file-enable ()
--- 285,297 ----
    (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.  "))))
  
  ;;;###autoload
  (defun epa-file-enable ()

Anyway, thanks for your suggestions.  I'll look at them this weekend
since I've been a bit busy now.

Regards,
-- 
Daiki Ueno