(binhex-decode-region-internal): Use set-buffer-multibyte rather than

setting default-enable-multibyte-characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73e7f02747937bb0f68fbb874bbb34a9235b4adf..8019ce822a1183b667de43b424688c9283de25c0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/mail/binhex.el b/lisp/mail/binhex.el
index 7b83c978babe11360b045a10a6cf13add0a5ab10..f8b869a7bf14cedffe08ef175fb3bb68a973d6ce 100644 (file)
--- a/lisp/mail/binhex.el
+++ b/lisp/mail/binhex.el
@@ -222,8 +222,8 @@ If HEADER-ONLY is non-nil only decode header and return filename."
        (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