- (condition-case err
- (funcall (mml2015-clear-decrypt-function))
- (error
- (unless (y-or-n-p (format "%s, continue?" err))
- (kill-buffer buf)
- (error "Decrypt failure.")))))
- (mm-make-handle buf
- '("text/plain" (charset . gnus-decoded)))))
+ (funcall (mml2015-clear-decrypt-function)))
+ (setcdr mm-security-handle
+ (list
+ (mm-make-handle buf
+ '("text/plain" (charset . gnus-decoded)))))
+ mm-security-handle))