[Emacs-diffs] Changes to emacs/lisp/gnus/uudecode.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   07/01/12 00:54:56

Index: uudecode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/uudecode.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- uudecode.el 7 Jun 2006 16:39:15 -0000       1.15
+++ uudecode.el 12 Jan 2007 00:54:56 -0000      1.16
@@ -205,7 +205,10 @@
                (insert (apply 'concat (nreverse result)))))
          (or (markerp end) (setq end (set-marker (make-marker) end)))
          (goto-char start)
-         (insert (apply 'concat (nreverse result)))
+         (if enable-multibyte-characters
+             (mapc #'(lambda (x) (insert (string-to-multibyte x)))
+                   (nreverse result))
+           (insert (apply 'concat (nreverse result))))
          (delete-region (point) end))))))
 
 ;;;###autoload