+(defun wl-mime-decrypt-application/pgp-encrypted (entity situation)
+ (let ((summary-buffer wl-message-buffer-cur-summary-buffer)
+ (original-buffer wl-message-buffer-original-buffer))
+ (mime-decrypt-application/pgp-encrypted entity situation)
+ (setq wl-message-buffer-cur-summary-buffer summary-buffer)
+ (setq wl-message-buffer-original-buffer original-buffer)))
+
+