From: yamaoka <yamaoka>
Date: Mon, 30 Sep 2002 13:46:31 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-04-quimby~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb850f2f707591559669bced9e184d99939c618f;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f843d15..bb428a7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-30  Simon Josefsson  <jas@extundo.com>
+
+	* mml2015.el (mml2015-pgg-clear-verify): Verifying in a unibyte
+	buffer seem to be needed?
+
 2002-09-29  Simon Josefsson  <jas@extundo.com>
 
 	* mml1991.el (pgg-output-buffer, pgg-errors-buffer): Prevent byte
diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index cdda790..15a4201 100644
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -761,10 +761,13 @@ by you.")
   handle)
 
 (defun mml2015-pgg-clear-verify ()
-  (let ((pgg-errors-buffer mml2015-result-buffer))
+  (let ((pgg-errors-buffer mml2015-result-buffer)
+	(text (current-buffer)))
     (if (condition-case err
 	    (prog1
-		(pgg-verify-region (point-min) (point-max) nil t)
+		(mm-with-unibyte-buffer
+		  (insert-buffer text)
+		  (pgg-verify-region (point-min) (point-max) nil t))
 	      (mm-set-handle-multipart-parameter
 	       mm-security-handle 'gnus-details
 	       (with-current-buffer mml2015-result-buffer