* mm-uu.el (mm-uu-copy-to-buffer): Copy

`buffer-file-coding-system' to the new buffer.
(mm-uu-pgp-signed-extract-1): Don't copy
`buffer-file-coding-system' here.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab89fa2..226c025 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-04-06  Jesper Harder  <harder@ifa.au.dk>
 
+       * mm-uu.el (mm-uu-copy-to-buffer): Copy
+       `buffer-file-coding-system' to the new buffer.
+       (mm-uu-pgp-signed-extract-1): Don't copy
+       `buffer-file-coding-system' here.
+
        * mm-bodies.el (mm-decode-body): last-coding-system-used doesn't
        exist in XEmacs.
        (mm-decode-body): Add missing quote.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 96c9f57..13b6dcf 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -175,8 +175,10 @@ To disable dissecting shar codes, for instance, add
   "Copy the contents of the current buffer to a fresh buffer.
 Return that buffer."
   (save-excursion
-    (let ((obuf (current-buffer)))
+    (let ((obuf (current-buffer))
+         (coding-system buffer-file-coding-system))
       (set-buffer (generate-new-buffer " *mm-uu*"))
+      (setq buffer-file-coding-system coding-system)
       (insert-buffer-substring obuf from to)
       (current-buffer))))
 
@@ -316,10 +318,8 @@ Return that buffer."
   (defvar gnus-newsgroup-charset))
 
 (defun mm-uu-pgp-signed-extract-1 (handles ctl)
-  (let ((buf (mm-uu-copy-to-buffer (point-min) (point-max)))
-       (coding-system buffer-file-coding-system))
+  (let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))
     (with-current-buffer buf
-      (setq buffer-file-coding-system coding-system)
       (if (mm-uu-pgp-signed-test)
          (progn
            (mml2015-clean-buffer)