From 53a5fc0aa818b788f99ddbaaf0f62fb5a1c1c04c Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 30 Apr 2006 21:54:59 +0000 Subject: [PATCH] * epa.el (epa-delete-keys): Support deletion of secret keys. --- ChangeLog | 2 ++ epa.el | 7 ++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index a511449..e878e48 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2006-04-30 Daiki Ueno + * epa.el (epa-delete-keys): Support deletion of secret keys. + * pgg-epg.el (pgg-epg-decrypt-region): Convert line endings of the decrypted text. diff --git a/epa.el b/epa.el index 9ae9bf2..57dfca2 100644 --- a/epa.el +++ b/epa.el @@ -522,16 +522,17 @@ If no one is selected, symmetric encryption will be performed. "))) (message "Encrypting %s...done" (file-name-nondirectory file)))) ;;;###autoload -(defun epa-delete-keys (keys) +(defun epa-delete-keys (keys &optional allow-secret) "Delete selected KEYS." (interactive (let ((keys (epa-marked-keys))) (unless keys (error "No keys selected")) - (list keys))) + (list keys + (eq (nth 1 epa-list-keys-arguments) t)))) (let ((context (epg-make-context))) (message "Deleting...") - (epg-delete-keys context keys) + (epg-delete-keys context keys allow-secret) (apply #'epa-list-keys epa-list-keys-arguments) (message "Deleting...done"))) -- 1.7.10.4