From 2729253403f2822c8bab424c54e7da30bf79eeb7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 15 Nov 2002 15:10:13 +0000 Subject: [PATCH] * wl-mime.el (wl-message-verify-pgp-nonmime): Encode by the coding system of the echo buffer before decoding. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c884c74..ca35b30 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-11-15 Yoichi NAKAYAMA + + * wl-mime.el (wl-message-verify-pgp-nonmime): Encode by the coding + system of the echo buffer before decoding. + 2002-11-14 Yoichi NAKAYAMA * wl-mime.el (wl-message-verify-pgp-nonmime): Verify sign in the diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 393ec98..4627e48 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -330,7 +330,7 @@ It calls following-method selected from variable (while (< beg (point)) (if (re-search-backward "^-+BEGIN PGP SIGNED MESSAGE-+$" nil t) (setq count (+ count 1)) - (defbug))) + (debug))) (with-temp-buffer (set-buffer-multibyte nil) (insert (mime-entity-body entity)) @@ -352,6 +352,7 @@ It calls following-method selected from variable (setq m-beg (point)) (insert-buffer-substring (if status pgg-output-buffer pgg-errors-buffer)) + (encode-coding-region m-beg (point) buffer-file-coding-system) (decode-coding-region m-beg (point) wl-cs-autoconv)) (message "Cannot find pgp signed region")))) -- 1.7.10.4