(mm-uu-pgp-signed-extract): Use coding-system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80969b6..4da00ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * mm-uu.el (mm-uu-type-alist): Don't test pgp stuff.
        (mm-uu-pgp-encrypted-extract): Clean mml2015 buffer.
+       (mm-uu-pgp-signed-extract): Use coding-system.
 
 2000-11-07 14:33:19  ShengHuo ZHU  <zsh@cs.rochester.edu>
 

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index ec3c7f0..c51dd66 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -264,7 +264,9 @@ To disable dissecting shar codes, for instance, add
     (with-current-buffer buf
       (when (mm-uu-pgp-signed-test)
        (mml2015-clean-buffer)
-       (funcall (mml2015-clear-verify-function)))
+       (let ((coding-system-for-write (or gnus-newsgroup-charset
+                                          'iso-8859-1)))
+         (funcall (mml2015-clear-verify-function))))
       (goto-char (point-min))
       (if (search-forward "\n\n" nil t)
          (delete-region (point-min) (point)))