From f7a28f60f11e7a71c5bfa97f3e420c86ca492a65 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 17 Apr 2006 03:16:41 +0000 Subject: [PATCH] Fixed. --- epa-dired.el | 3 ++- epa.el | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/epa-dired.el b/epa-dired.el index 8b285f9..5fcebfa 100644 --- a/epa-dired.el +++ b/epa-dired.el @@ -62,7 +62,8 @@ (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)) + (y-or-n-p "Make a detached signature? ")) (setq file-list (cdr file-list))) (revert-buffer))) diff --git a/epa.el b/epa.el index 07e6697..49ddd4a 100644 --- a/epa.el +++ b/epa.el @@ -394,11 +394,11 @@ (defun epa-sign-file (file detached) (interactive (list (expand-file-name (read-file-name "File: ")) - current-prefix-arg)) + (y-or-n-p "Make a detached signature? "))) (let ((signature (concat file (if detached ".sig" ".gpg"))) (context (epg-make-context))) (message "Signing %s..." (file-name-nondirectory file)) - (epg-sign-file context file signature (if detached 'detached)) + (epg-sign-file context file signature (not (null detached))) (message "Signing %s...done" (file-name-nondirectory file)))) (defun epa-encrypt-file (file recipients) -- 1.7.10.4