From: hmurata <hmurata>
Date: Sun, 5 Jun 2005 01:49:56 +0000 (+0000)
Subject: (wl-message-verify-pgp-nonmime): Fix the last change.
X-Git-Tag: wl-2_15_3~71
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=43eb3242875aea07f9e2952a8480b3283da5eb0c;p=elisp%2Fwanderlust.git

(wl-message-verify-pgp-nonmime): Fix the last change.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index daaff0c..6ee1995 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-mime.el (wl-message-verify-pgp-nonmime): Fix the last change.
+
 2005-06-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (wl-message-verify-pgp-nonmime): Verify encoded
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 902ffb6..2b05af2 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -503,7 +503,7 @@ With ARG, ask coding system and encode the region with it before verifying."
   (save-excursion
     (beginning-of-line)
     (let ((message-buffer (current-buffer))
-	  beg end coding-system verify-ok m-beg)
+	  beg end coding-system success)
       (setq end (and (or (re-search-forward "^-+END PGP SIGNATURE-+$" nil t)
 			 (re-search-backward "^-+END PGP SIGNATURE-+$" nil t)
 			 (error "Cannot find pgp signed region"))
@@ -525,17 +525,14 @@ With ARG, ask coding system and encode the region with it before verifying."
       (with-temp-buffer
 	(insert-buffer-substring message-buffer beg end)
 	(encode-coding-region (point-min) (point-max) coding-system)
-	(setq verify-ok (pgg-verify-region (point-min) (point-max) nil 'fetch)))
+	(setq success (pgg-verify-region (point-min) (point-max) nil 'fetch)))
       (mime-show-echo-buffer)
       (set-buffer mime-echo-buffer-name)
       (set-window-start
        (get-buffer-window mime-echo-buffer-name)
        (point-max))
-      (let ((beg (point)))
-	(insert-buffer-substring
-	 (if verify-ok pgg-output-buffer pgg-errors-buffer))
-	(encode-coding-region beg (point) buffer-file-coding-system)
-	(decode-coding-region beg (point) wl-cs-autoconv)))))
+      (insert-buffer-substring
+       (if success pgg-output-buffer pgg-errors-buffer)))))
 
 ;; XXX: encrypted multipart isn't represented as multipart
 (defun wl-mime-preview-application/pgp (parent-entity entity situation)