From: ueno Date: Wed, 19 Apr 2006 09:02:39 +0000 (+0000) Subject: revert-buffer is not necessary for epa-dired-do-verify. X-Git-Tag: epgsm-branchpoint~21 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d9e077e5c49f0678f7141862c3dd1f56dfc81e31;p=elisp%2Fepg.git revert-buffer is not necessary for epa-dired-do-verify. --- diff --git a/epa-dired.el b/epa-dired.el index 5fcebfa..993fb29 100644 --- a/epa-dired.el +++ b/epa-dired.el @@ -54,8 +54,7 @@ (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." diff --git a/epa.el b/epa.el index 6e5fe12..0c90a7c 100644 --- a/epa.el +++ b/epa.el @@ -436,15 +436,15 @@ signature) (message "Verifying %s..." (file-name-nondirectory file)) (epg-verify-file context file plain) + (message "Verifying %s...done" (file-name-nondirectory file)) (setq signature (reverse (epg-context-result-for context 'verify))) (while signature - (message "%s: %s %s %s\n" + (message "%s: %s %s %s" (epg-signature-status (car signature)) (epg-signature-key-id (car signature)) (epg-signature-user-id (car signature)) (epg-signature-validity (car signature))) - (setq signature (cdr signature))) - (message "Verifying %s...done" (file-name-nondirectory file)))) + (setq signature (cdr signature))))) (defun epa-sign-file (file detached) (interactive