# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1205355190 0
# Node ID b643f53a57c561cee26d158c6c67fa74f1eb36a4
# Parent  f231a5d1706d4b4b09f4b6a0505c23a94309a61e
(uudecode-decode-region-internal): Use set-buffer-multibyte rather than
setting default-enable-multibyte-characters.

diff -r f231a5d1706d -r b643f53a57c5 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 12 20:52:31 2008 +0000
+++ b/lisp/ChangeLog	Wed Mar 12 20:53:10 2008 +0000
@@ -1,5 +1,6 @@
 2008-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* mail/uudecode.el (uudecode-decode-region-internal):
 	* net/dns.el (dns-read-string-name, dns-read, dns-read-type, query-dns):
 	* sha1.el (sha1-string-external): Use set-buffer-multibyte rather than
 	setting default-enable-multibyte-characters.
diff -r f231a5d1706d -r b643f53a57c5 lisp/mail/uudecode.el
--- a/lisp/mail/uudecode.el	Wed Mar 12 20:52:31 2008 +0000
+++ b/lisp/mail/uudecode.el	Wed Mar 12 20:53:10 2008 +0000
@@ -217,14 +217,14 @@
 			  result))))
 	  (skip-chars-forward non-data-chars end))
 	(if file-name
-	    (let (default-enable-multibyte-characters)
-	      (with-temp-file file-name
-		(insert (apply 'concat (nreverse result)))))
+            (with-temp-file file-name
+              (set-buffer-multibyte nil)
+              (insert (apply 'concat (nreverse result))))
 	  (or (markerp end) (setq end (set-marker (make-marker) end)))
 	  (goto-char start)
 	  (if enable-multibyte-characters
-	      (mapc #'(lambda (x) (insert (uudecode-string-to-multibyte x)))
-		    (nreverse result))
+	      (dolist (x (nreverse result))
+                (insert (uudecode-string-to-multibyte x)))
 	    (insert (apply 'concat (nreverse result))))
 	  (delete-region (point) end))))))
 
@@ -238,5 +238,5 @@
 
 (provide 'uudecode)
 
-;;; arch-tag: e1f09ed5-62b4-4677-9f13-4e81c4fe8ce3
+;; arch-tag: e1f09ed5-62b4-4677-9f13-4e81c4fe8ce3
 ;;; uudecode.el ends here