From: yoichi <yoichi>
Date: Fri, 15 Nov 2002 15:10:13 +0000 (+0000)
Subject: * wl-mime.el (wl-message-verify-pgp-nonmime): Encode by the coding
X-Git-Tag: wl-2_11_1~38
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2729253403f2822c8bab424c54e7da30bf79eeb7;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-message-verify-pgp-nonmime): Encode by the coding
system of the echo buffer before decoding.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-mime.el (wl-message-verify-pgp-nonmime): Encode by the coding
+	system of the echo buffer before decoding.
+
 2002-11-14  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* 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"))))