;; error response from it. Set it here.
(unless (epg-context-result-for epg-context 'error)
(if (string-match "\\`exited abnormally with code \\(.*\\)\n" status)
;; 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-make-temp-file "epg-output")))
(epg-start-sign context (epg-make-data-from-file plain) mode)
(epg-wait-for-completion context)
(epg-make-temp-file "epg-output")))
(epg-start-sign context (epg-make-data-from-file plain) mode)
(epg-wait-for-completion context)
- (if (epg-context-result-for context 'error)
- (error "Sign failed: %S"
- (epg-context-result-for context 'error)))
+ (unless (epg-context-result-for context 'sign)
+ (error "Sign failed: %S"
+ (epg-context-result-for context 'error)))
- (if (epg-context-result-for context 'error)
- (error "Sign failed: %S"
- (epg-context-result-for context 'error)))
+ (unless (epg-context-result-for context 'sign)
+ (error "Sign failed: %S"
+ (epg-context-result-for context 'error)))
(epg-start-encrypt context (epg-make-data-from-file plain)
recipients sign always-trust)
(epg-wait-for-completion context)
(epg-start-encrypt context (epg-make-data-from-file plain)
recipients sign always-trust)
(epg-wait-for-completion context)
(if (epg-context-result-for context 'error)
(error "Encrypt failed: %S"
(epg-context-result-for context 'error)))
(if (epg-context-result-for context 'error)
(error "Encrypt failed: %S"
(epg-context-result-for context 'error)))
(if (epg-context-result-for context 'error)
(error "Encrypt failed: %S"
(epg-context-result-for context 'error)))
(if (epg-context-result-for context 'error)
(error "Encrypt failed: %S"
(epg-context-result-for context 'error)))