From ce706b2b1326beb926e95643e2f195d24bb2ae9b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 8 Nov 2000 01:51:18 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 1 + lisp/mm-uu.el | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) 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 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))) -- 1.7.10.4