From ca874c230f89fd5ac8cc9aa12b30ff1551108f12 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 12 Mar 2008 20:53:46 +0000 Subject: [PATCH] (binhex-decode-region-internal): Use set-buffer-multibyte rather than setting default-enable-multibyte-characters. --- lisp/ChangeLog | 1 + lisp/mail/binhex.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 73e7f027479..8019ce822a1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,6 @@ 2008-03-12 Stefan Monnier + * 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 7b83c978bab..f8b869a7bf1 100644 --- 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 -- 2.39.2