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