From 709612bf69b61ae33aff05350458398b04c4a1fe Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 1 Apr 2010 23:15:17 +0000 Subject: [PATCH] (mm-uu-pgp-signed-extract-1): Use buffer-file-coding-system if set. By Andreas Schwab . --- lisp/ChangeLog | 5 +++++ lisp/mm-uu.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2f8b8770..58aeee8c6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-04-01 Andreas Schwab + + * mm-uu.el (mm-uu-pgp-signed-extract-1): Use buffer-file-coding-system + if set. + 2010-03-31 Katsumi Yamaoka * gnus-art.el (gnus-article-browse-html-save-cid-content): Rename from diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index c690713ef..5ae9205e2 100644 --- a/lisp/mm-uu.el +++ b/lisp/mm-uu.el @@ -486,9 +486,11 @@ apply the face `mm-uu-extract'." (if (mm-uu-pgp-signed-test) (progn (mml2015-clean-buffer) - (let ((coding-system-for-write (or gnus-newsgroup-charset + (let ((coding-system-for-write (or buffer-file-coding-system + gnus-newsgroup-charset 'iso-8859-1)) - (coding-system-for-read (or gnus-newsgroup-charset + (coding-system-for-read (or buffer-file-coding-system + gnus-newsgroup-charset 'iso-8859-1))) (funcall (mml2015-clear-verify-function)))) (when (and mml2015-use (null (mml2015-clear-verify-function))) -- 2.34.1