From: Simon Josefsson Date: Mon, 30 Sep 2002 12:33:28 +0000 (+0000) Subject: (mml2015-pgg-clear-verify): Verifying in a unibyte X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=c5252e46c1decc7ae0c4abedfae2daa06aaf9764;p=gnus (mml2015-pgg-clear-verify): Verifying in a unibyte buffer seem to be needed? --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f843d15b8..bb428a7f6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-09-30 Simon Josefsson + + * mml2015.el (mml2015-pgg-clear-verify): Verifying in a unibyte + buffer seem to be needed? + 2002-09-29 Simon Josefsson * mml1991.el (pgg-output-buffer, pgg-errors-buffer): Prevent byte diff --git a/lisp/mml2015.el b/lisp/mml2015.el index 4bfc3a211..846ddd099 100644 --- 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