(goto-char (point-min))
(let (plain recipients)
(while (re-search-forward "^\\*" nil t)
- (setq recipients (cons (get-text-property (point) 'epa-key-id)
- recipients)))
+ (unless (get-text-property (point) 'epa-key-secret)
+ (setq recipients (cons (get-text-property (point) 'epa-key-id)
+ recipients))))
(list (setq plain (expand-file-name (read-file-name "Plain file: ")))
(expand-file-name
(read-file-name (format "Cipher file (default %s.gpg) "