# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1168563296 0
# Node ID caf8e7cf2b54f9cedba02ef1edb41a64956d3bbe
# Parent  9d1f9c756f7d6d0f6259ccf4f2cab78ed4e727b5
(uudecode-decode-region-internal): Make it work in a
multibyte buffer.

diff -r 9d1f9c756f7d -r caf8e7cf2b54 lisp/gnus/uudecode.el
--- a/lisp/gnus/uudecode.el	Thu Jan 11 20:41:43 2007 +0000
+++ b/lisp/gnus/uudecode.el	Fri Jan 12 00:54:56 2007 +0000
@@ -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