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

[Daiki Ueno <ueno@unixuser.org>]

>>>>> In <m28x18834s.fsf@kenny.sha-bang.de> 
>>>>>	Sascha Wilde <wilde@sha-bang.de> wrote:
> Sascha Wilde <wilde@sha-bang.de> 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