Mercurial > emacs
diff lisp/gnus/uudecode.el @ 75197:caf8e7cf2b54
(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 | 70b055c73c8c |
children | e3694f1cb928 |
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