[Emacs-diffs] Changes to emacs/lisp/gnus/mm-uu.el

[Miles Bader]

Index: emacs/lisp/gnus/mm-uu.el
diff -u emacs/lisp/gnus/mm-uu.el:1.25 emacs/lisp/gnus/mm-uu.el:1.26
--- emacs/lisp/gnus/mm-uu.el:1.25       Wed Apr 26 21:58:05 2006
+++ emacs/lisp/gnus/mm-uu.el    Tue May  2 05:25:20 2006
@@ -436,11 +436,18 @@
                        "OK")))
          (progn
            ;; Decode charset.
-           (when (and (or charset
-                          (setq charset gnus-newsgroup-charset))
-                      (setq charset (mm-charset-to-coding-system charset))
-                      (not (eq charset 'ascii)))
-             (mm-decode-coding-region (point-min) (point-max) charset))
+           (if (and (or charset
+                        (setq charset gnus-newsgroup-charset))
+                    (setq charset (mm-charset-to-coding-system charset))
+                    (not (eq charset 'ascii)))
+               ;; Assume that buffer's multibyteness is turned off.
+               ;; See `mml2015-pgg-clear-decrypt'.
+               (insert (mm-decode-coding-string (prog1
+                                                    (buffer-string)
+                                                  (erase-buffer)
+                                                  (mm-enable-multibyte))
+                                                charset))
+             (mm-enable-multibyte))
            (list (mm-make-handle buf mm-uu-text-plain-type)))
        (list (mm-make-handle buf '("application/pgp-encrypted")))))))