From 19a0543dfa1784253d2e0ea46ab9841cca71a6a5 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 21 Apr 2007 20:20:48 +0000 Subject: [PATCH] (epa-file-select-keys): New command. --- ChangeLog | 4 ++++ epa-file.el | 10 ++++++++++ 2 files changed, 14 insertions(+) diff --git a/ChangeLog b/ChangeLog index 6b6aee0..fbf959a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-04-22 Daiki Ueno + + * epa-file.el (epa-file-select-keys): New command. + 2007-04-21 Daiki Ueno * epa-file.el (epa-file-write-region): Ask recipients only the diff --git a/epa-file.el b/epa-file.el index 47b17f5..9828b65 100644 --- a/epa-file.el +++ b/epa-file.el @@ -264,6 +264,16 @@ If no one is selected, symmetric encryption will be performed. " epa-file-inhibit-auto-save) (auto-save-mode 0))) +(defun epa-file-select-keys () + "Select recipients for encryption." + (interactive) + (make-local-variable 'epa-file-encrypt-to) + (setq epa-file-encrypt-to + (epa-select-keys + context + "Select recipents for encryption. +If no one is selected, symmetric encryption will be performed. "))) + ;;;###autoload (defun epa-file-enable () (interactive) -- 1.7.10.4