Mercurial > emacs
changeset 107758:79f81b166468
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.
| author | Andreas Schwab <schwab@linux-m68k.org> |
|---|---|
| date | Thu, 01 Apr 2010 17:34:05 +0200 |
| parents | b76c2b6ff08d |
| children | f46f743d330a f54953a8f7e2 d9a02533def5 |
| files | lisp/gnus/ChangeLog lisp/gnus/mm-uu.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Apr 01 11:24:53 2010 -0400 +++ b/lisp/gnus/ChangeLog Thu Apr 01 17:34:05 2010 +0200 @@ -1,3 +1,8 @@ +2010-04-01 Andreas Schwab <schwab@linux-m68k.org> + + * mm-uu.el (mm-uu-pgp-signed-extract-1): Use buffer-file-coding-system + if set. + 2010-03-29 Katsumi Yamaoka <yamaoka@jpl.org> * mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag.
--- a/lisp/gnus/mm-uu.el Thu Apr 01 11:24:53 2010 -0400 +++ b/lisp/gnus/mm-uu.el Thu Apr 01 17:34:05 2010 +0200 @@ -486,9 +486,11 @@ (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)))