From ea839d192dcf98d436f9d5da922bbb5eb3fbd8bd Mon Sep 17 00:00:00 2001 From: Samuel Loury Date: Thu, 30 May 2013 08:59:35 +0200 Subject: [PATCH] * epa-dired.el (epa-dired-do-decrypt): Fix epa-dired-do-decrypt giving epa-decrypt-file the plain file, following the arguments changes made in ac653402cef42324ccecfca09690073232f74ba8 --- lisp/ChangeLog | 5 +++++ lisp/epa-dired.el | 13 ++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82e0f48..dc4a8ba 100644 *** a/lisp/ChangeLog --- b/lisp/ChangeLog *************** *** 1,3 **** --- 1,8 ---- + 2013-05-30 Samuel Loury + * epa-dired.el (epa-dired-do-decrypt): Fix epa-dired-do-decrypt + giving epa-decrypt-file the plain file, following the arguments + changes made in ac653402cef42324ccecfca09690073232f74ba8 + 2013-05-30 Glenn Morris * ielm.el (ielm-map, ielm-complete-symbol): diff --git a/lisp/epa-dired.el b/lisp/epa-dired.el index a01f064..190eabf 100644 *** a/lisp/epa-dired.el --- b/lisp/epa-dired.el *************** *** 31,37 **** (interactive) (let ((file-list (dired-get-marked-files))) (while file-list ! (epa-decrypt-file (expand-file-name (car file-list))) (setq file-list (cdr file-list))) (revert-buffer))) - - --- 31,48 ---- (interactive) (let ((file-list (dired-get-marked-files))) (while file-list ! (let* ((decrypt-file (expand-file-name (car file-list))) ! (default-name (file-name-sans-extension ! decrypt-file)) ! (plain (expand-file-name ! (read-file-name ! (concat "To file (default " ! (file-name-nondirectory default-name) ! ") ") ! (file-name-directory default-name) ! default-name)))) ! (epa-decrypt-file decrypt-file plain) ! ) (setq file-list (cdr file-list))) (revert-buffer))) 1.7.10.4