X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=epa-dired.el;h=aa4e40645cc7ab3a4c85c59f6c9c69e8c5d77d76;hb=74b46a0ecaa2cf2e877ae29ea9f4196f812688fd;hp=8b285f9d914f6f18e16b999318d88073c33c4759;hpb=2cb5b6d16de22da82f447f5d94c37700e66e4098;p=elisp%2Fepg.git diff --git a/epa-dired.el b/epa-dired.el index 8b285f9..aa4e406 100644 --- a/epa-dired.el +++ b/epa-dired.el @@ -1,4 +1,4 @@ -;;; epa-dired.el --- the EasyPG Assistant as a dired extension +;;; epa-dired.el --- the EasyPG Assistant, dired extension ;; Copyright (C) 2006 Daiki Ueno ;; Author: Daiki Ueno @@ -54,15 +54,19 @@ (let ((file-list (dired-get-marked-files))) (while file-list (epa-verify-file (expand-file-name (car file-list))) - (setq file-list (cdr file-list))) - (revert-buffer))) + (setq file-list (cdr file-list))))) (defun epa-dired-do-sign () "Sign marked files." (interactive) (let ((file-list (dired-get-marked-files))) (while file-list - (epa-sign-file (expand-file-name (car file-list)) t) + (epa-sign-file + (expand-file-name (car file-list)) + (epa-select-keys (epg-make-context) "Select keys for signing. +If no one is selected, default secret key is used. " + nil t) + (y-or-n-p "Make a detached signature? ")) (setq file-list (cdr file-list))) (revert-buffer))) @@ -73,11 +77,8 @@ (while file-list (epa-encrypt-file (expand-file-name (car file-list)) - (mapcar (lambda (key) - (epg-sub-key-id - (car (epg-key-sub-key-list key)))) - (epa-select-keys "Select recipents for encryption. -If no one is selected, symmetric encryption will be performed. "))) + (epa-select-keys (epg-make-context) "Select recipents for encryption. +If no one is selected, symmetric encryption will be performed. ")) (setq file-list (cdr file-list))) (revert-buffer)))