From 2cb5b6d16de22da82f447f5d94c37700e66e4098 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 17 Apr 2006 03:02:12 +0000 Subject: [PATCH] Fixed. --- epa-dired.el | 6 +++--- epa.el | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/epa-dired.el b/epa-dired.el index 4c1490a..8b285f9 100644 --- a/epa-dired.el +++ b/epa-dired.el @@ -57,12 +57,12 @@ (setq file-list (cdr file-list))) (revert-buffer))) -(defun epa-dired-do-sign (&optional detached) +(defun epa-dired-do-sign () "Sign marked files." - (interactive "P") + (interactive) (let ((file-list (dired-get-marked-files))) (while file-list - (epa-sign-file (expand-file-name (car file-list)) detached) + (epa-sign-file (expand-file-name (car file-list)) t) (setq file-list (cdr file-list))) (revert-buffer))) diff --git a/epa.el b/epa.el index 8e23cd5..07e6697 100644 --- a/epa.el +++ b/epa.el @@ -398,7 +398,7 @@ (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) + (epg-sign-file context file signature (if detached 'detached)) (message "Signing %s...done" (file-name-nondirectory file)))) (defun epa-encrypt-file (file recipients) -- 1.7.10.4