- (if (and sign
- (not (epg-context-result-for context 'sign)))
- (error "Sign encrypt failed: %S"
- (epg-context-result-for context 'error)))
+ (if sign
+ (if (epg-context-result-for context 'sign)
+ (if (epg-context-result-for context 'error)
+ (message "Sign warning: %S"
+ (epg-context-result-for context 'error)))
+ (if (epg-context-result-for context 'error)
+ (error "Sign failed: %S"
+ (epg-context-result-for context 'error))
+ (error "Sign failed"))))