From: yoichi <yoichi>
Date: Tue, 17 Sep 2002 13:53:19 +0000 (+0000)
Subject: * wl-mime.el (wl-mime-decrypt-application/pgp-encrypted): New
X-Git-Tag: wl-2_11_1~128
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d1f6db227c5b53ec35cf13b054d1591f2e4c1381;p=elisp%2Fwanderlust.git

* 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.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
-	* 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  <yoichi@eken.phys.nagoya-u.ac.jp>
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)))