From: yamaoka <yamaoka>
Date: Wed, 8 Nov 2000 01:51:18 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ce706b2b1326beb926e95643e2f195d24bb2ae9b;p=elisp%2Fgnus.git-

Synch with Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bee3d20..744f910 100644
--- 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 a11f419..9e9c37f 100644
--- 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)))