From: ueno Date: Mon, 17 Apr 2006 03:16:41 +0000 (+0000) Subject: Fixed. X-Git-Tag: epgsm-branchpoint~61 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f7a28f60f11e7a71c5bfa97f3e420c86ca492a65;p=elisp%2Fepg.git Fixed. --- 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)