- (riece-message-set-text
- message
- (concat
- "[OpenPGP Decrypted:"
- (riece-with-server-buffer
- (riece-identity-server (riece-message-target message))
- (decode-coding-string
- (epg-decrypt-string context (base64-decode-string string))
- (if (consp coding-system)
- (car coding-system)
- coding-system)))
- "]"))
- (error
- (if (setq entry (riece-identity-assoc
- (riece-message-target message)
- riece-epg-passphrase-alist))
- (setcdr entry nil))
- (message "%s" (cdr error)))))))
+ (progn
+ (setq string (base64-decode-string string))
+ (riece-message-set-text
+ message
+ (concat
+ "[decrypted:"
+ (riece-with-server-buffer
+ (riece-identity-server (riece-message-target message))
+ (decode-coding-string
+ (riece-epg-funcall-clear-passphrase
+ (riece-message-target message)
+ #'epg-decrypt-string context string)
+ (if (consp coding-system)
+ (car coding-system)
+ coding-system)))
+ "]")))
+ (error (message "%s" (cdr error)))))))