From: yoichi <yoichi>
Date: Tue, 12 Nov 2002 13:29:22 +0000 (+0000)
Subject: * wl-mime.el (wl-message-decrypt-pgp-nonmime): Decode PGP output
X-Git-Tag: wl-2_11_1~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a15121d227eb9e6e62e6bd68f81d8aaf06278e05;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-message-decrypt-pgp-nonmime): Decode PGP output
by `mime-view-automatic-conversion'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1552334..2bd50de 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2002-11-12  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* wl-mime.el (wl-message-decrypt-pgp-nonmime): Decode PGP output
+	by `mime-view-automatic-conversion'.
+
 	* wl-mime.el (wl-message-decrypt-pgp-nonmime): New function.
 	(wl-message-verify-pgp-nonmime): Ditto.
 	* wl-e21.el, wl-mule.el, wl-xmas.el (wl-message-define-keymap):
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index e319717..443490e 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -304,7 +304,8 @@ It calls following-method selected from variable
 	(let (beg end status)
 	  (setq end (match-end 0))
 	  (if (setq beg (re-search-backward "^-+BEGIN PGP MESSAGE-+$" nil t))
-	      (let ((inhibit-read-only t))
+	      (let ((inhibit-read-only t)
+		    (buffer-file-coding-system mime-view-automatic-conversion))
 		(setq status (pgg-decrypt-region beg end))
 		(pgg-display-output-buffer beg end status))
 	    (message "Cannot find pgp encrypted region")))