Automatically decrypt pgp-encrypted messages in preview mode.

[elisp/semi.git] / mime-pgp.el

diff --git a/mime-pgp.el b/mime-pgp.el
index 3a5b655..8f49a2e 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -270,6 +270,17 @@
        (setq mime-view-temp-message-buffer message-buf))
       (set-window-buffer p-win preview-buffer))))
 
+(defun mime-display-multipart/pgp-encrypted (entity situation)
+   (if pgg-decrypt-automatically
+       (let ((pgp-begin (point)))
+        (mime-insert-entity entity)
+        (goto-char pgp-begin)
+        (when (re-search-forward "^-+BEGIN PGP MESSAGE-+$" nil t)
+          (pgg-decrypt-region pgp-begin (point-max))
+          (delete-region pgp-begin (point-max))
+          (mime-display-entity
+           (mime-parse-buffer pgg-output-buffer))))
+     (mime-display-multipart/mixed entity situation)))
 
 ;;; @ end
 ;;;