From a15121d227eb9e6e62e6bd68f81d8aaf06278e05 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 12 Nov 2002 13:29:22 +0000 Subject: [PATCH] * wl-mime.el (wl-message-decrypt-pgp-nonmime): Decode PGP output by `mime-view-automatic-conversion'. --- wl/ChangeLog | 3 +++ wl/wl-mime.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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"))) -- 1.7.10.4