(mml2015-pgg-clear-verify): Verifying in a unibyte

buffer seem to be needed?

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f843d15..bb428a7 100644 (file)
--- 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 4bfc3a2..846ddd0 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -762,10 +762,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