Mercurial > emacs

changeset 75197:caf8e7cf2b54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uudecode-decode-region-internal): Make it work in a multibyte buffer.
author Kenichi Handa <handa@m17n.org>
date Fri, 12 Jan 2007 00:54:56 +0000
parents 9d1f9c756f7d
children 1123e57f97c7
files lisp/gnus/uudecode.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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