(if (setq entry (assoc file epa-file-passphrase-alist))
(setcdr entry nil))
(signal 'file-error
- (cons "Opening input file" (nthcdr 2 error)))))
+ (cons "Opening input file" (cdr error)))))
(if (boundp 'last-coding-system-used)
(set-buffer-file-coding-system last-coding-system-used)
(set-buffer-file-coding-system default-buffer-file-coding-system))
(error
(if (setq entry (assoc file epa-file-passphrase-alist))
(setcdr entry nil))
- (signal 'file-error (cons "Opening output file" (nthcdr 2 error)))))
+ (signal 'file-error (cons "Opening output file" (cdr error)))))
(epa-file-run-real-handler
#'write-region
(list string nil file append visit lockname mustbenew))