From d7b4879190af6e17673d8c3bdd0c71785bb4551e Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 1 Apr 2010 17:34:05 +0200 Subject: [PATCH] Use correct coding system when verifying a pgp signed message * mm-uu.el (mm-uu-pgp-signed-extract-1): Use buffer-file-coding-system if set. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mm-uu.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 0106e6212c5..8cbee9138c2 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/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-29 Katsumi Yamaoka * mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag. diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el index c690713ef14..5ae9205e2f0 100644 --- a/lisp/gnus/mm-uu.el +++ b/lisp/gnus/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.11.4.GIT