From: ueno Date: Tue, 25 Apr 2006 05:27:07 +0000 (+0000) Subject: Fixed. X-Git-Tag: epg-0_0_1~26 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a128ab5a906aa28687814aea3073f32ab0427188;p=elisp%2Fepg.git Fixed. --- diff --git a/epg.el b/epg.el index 98bc0e3..0deb04a 100644 --- a/epg.el +++ b/epg.el @@ -526,10 +526,10 @@ This function is for internal use only." ;; error response from it. Set it here. (unless (epg-context-result-for epg-context 'error) (if (string-match "\\`exited abnormally with code \\(.*\\)\n" status) - (epg-context-result-for + (epg-context-set-result-for epg-context 'error (list (cons 'exit (string-to-number (match-string 1 status))))) - (epg-context-result-for epg-context 'error + (epg-context-set-result-for epg-context 'error (list (cons 'signal status)))))))) (defun epg-read-output (context)