* 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 (file)
--- 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 (file)
--- 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")))