(interactive)
(let ((file-list (dired-get-marked-files)))
(while file-list
- (epa-decrypt-file (car file-list))
+ (epa-decrypt-file (expand-file-name (car file-list)))
(setq file-list (cdr file-list)))
(revert-buffer)))
(interactive)
(let ((file-list (dired-get-marked-files)))
(while file-list
- (epa-verify-file (car file-list))
+ (epa-verify-file (expand-file-name (car file-list)))
(setq file-list (cdr file-list)))
(revert-buffer)))
(let ((file-list (dired-get-marked-files)))
(while file-list
(epa-encrypt-file
- (car file-list)
+ (expand-file-name (car file-list))
(mapcar (lambda (key)
(epg-sub-key-id
(car (epg-key-sub-key-list key))))
(defun epa-decrypt-file (file)
(interactive "fFile: ")
(let* ((default-name (file-name-sans-extension file))
- (plain (read-file-name
- (concat "To file (default "
- (file-name-nondirectory default-name)
- ") ")
- (file-name-directory default-name)
- default-name))
+ (plain (expand-file-name
+ (read-file-name
+ (concat "To file (default "
+ (file-name-nondirectory default-name)
+ ") ")
+ (file-name-directory default-name)
+ default-name)))
(context (epg-make-context)))
(message "Decrypting %s..." (file-name-nondirectory file))
(epg-decrypt-file context file plain)