Wrong coding system in mm-uu-pgp-signed-extract-1

[Andreas Schwab]

When gnus verifies a pgp signed message it gets the coding system wrong.
mm-uu-pgp-signed-extract-1 should use the coding system of the *mm-uu*
buffer in preference (which is the coding system that
mm-uu-copy-to-buffer has set from the original buffer), since that is
what the signature was created against.  I have installed this patch in
the emacs-23 branch.

Andreas.

2010-04-01  Andreas Schwab  <address@hidden>

        * mm-uu.el (mm-uu-pgp-signed-extract-1): Use buffer-file-coding-system
        if set.

=== modified file 'lisp/gnus/mm-uu.el'
--- lisp/gnus/mm-uu.el  2010-01-13 08:35:10 +0000
+++ lisp/gnus/mm-uu.el  2010-04-01 15:08:50 +0000
@@ -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)))


-- 
Andreas Schwab, address@hidden
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."