Mercurial > emacs
diff lisp/gnus/uudecode.el @ 90737:95d0cdf160ea
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 586-614)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- Merge from erc--main--0
- Make byte compiler correctly write circular constants
* gnus--rel--5.10 (patch 186-196)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-162
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 26 Jan 2007 06:16:11 +0000 |
parents | a8190f7e546e e3694f1cb928 |
children | f83d17e1ace6 |
line wrap: on
line diff
--- a/lisp/gnus/uudecode.el Fri Jan 26 02:30:28 2007 +0000 +++ b/lisp/gnus/uudecode.el Fri Jan 26 06:16:11 2007 +0000 @@ -1,7 +1,7 @@ ;;; uudecode.el -- elisp native uudecode ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006 Free Software Foundation, Inc. +;; 2005, 2006, 2007 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: uudecode news @@ -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