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

diff -r b643f53a57c5 -r b8de2f698e11 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 12 20:53:10 2008 +0000
+++ b/lisp/ChangeLog	Wed Mar 12 20:53:46 2008 +0000
@@ -1,5 +1,6 @@
 2008-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* mail/binhex.el (binhex-decode-region-internal):
 	* 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
diff -r b643f53a57c5 -r b8de2f698e11 lisp/mail/binhex.el
--- a/lisp/mail/binhex.el	Wed Mar 12 20:53:10 2008 +0000
+++ b/lisp/mail/binhex.el	Wed Mar 12 20:53:46 2008 +0000
@@ -222,8 +222,8 @@
 	(save-excursion
 	  (goto-char start)
 	  (when (re-search-forward binhex-begin-line end t)
-	    (let (default-enable-multibyte-characters)
-	      (setq work-buffer (generate-new-buffer " *binhex-work*")))
+            (setq work-buffer (generate-new-buffer " *binhex-work*"))
+            (with-current-buffer work-buffer (set-buffer-multibyte nil))
 	    (beginning-of-line)
 	    (setq bits 0 counter 0)
 	    (while tmp