From: ueno <ueno>
Date: Mon, 17 Apr 2006 08:16:10 +0000 (+0000)
Subject: Fixed signal args.
X-Git-Tag: epgsm-branchpoint~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=08d6412163e9162fd012cf63a587f9e5e1d50ac2;p=elisp%2Fepg.git

Fixed signal args.
---

diff --git a/epa-file.el b/epa-file.el
index 574eaed..046997a 100644
--- a/epa-file.el
+++ b/epa-file.el
@@ -93,7 +93,7 @@
 	     (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))
@@ -138,7 +138,7 @@ If no one is selected, symmetric encryption will be performed.  ")))))
       (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))