From d1f6db227c5b53ec35cf13b054d1591f2e4c1381 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 17 Sep 2002 13:53:19 +0000 Subject: [PATCH] * wl-mime.el (wl-mime-decrypt-application/pgp-encrypted): New function, a wrapper for `mime-decrypt-application/pgp-encrypted'. (wl-mime-setup): Add its entry. --- wl/ChangeLog | 8 +++++++- wl/wl-mime.el | 14 ++++++++++++++ 2 files changed, 21 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c199dd2..a02a486 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,6 +1,12 @@ +2002-09-17 Yoichi NAKAYAMA + + * wl-mime.el (wl-mime-decrypt-application/pgp-encrypted): New + function, a wrapper for `mime-decrypt-application/pgp-encrypted'. + (wl-mime-setup): Add its entry. + 2002-09-13 Yoichi NAKAYAMA - * wl-mime.el (wl-draft-preview-message): Revive the position + * wl-mime.el (wl-draft-preview-message): Restore the position before evaluating wl-draft-send-hook in preview buffer. 2002-09-12 Yoichi NAKAYAMA diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 385329f..18c3034 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -309,6 +309,14 @@ By setting following-method as yank-content." (elmo-mime-insert-header entity situation) (wl-highlight-headers))) +(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))) + + ;;; Setup methods. (defun wl-mime-setup () (set-alist 'mime-preview-quitting-method-alist @@ -340,6 +348,12 @@ By setting following-method as yank-content." (ctree-set-calist-strictly 'mime-acting-condition + '((type . application) (subtype . pgp-encrypted) + (method . wl-mime-decrypt-application/pgp-encrypted) + (major-mode . wl-original-message-mode))) + + (ctree-set-calist-strictly + 'mime-acting-condition '((mode . "extract") (major-mode . wl-original-message-mode) (method . wl-mime-save-content))) -- 1.7.10.4