From: Stefan Monnier Date: Wed, 12 Mar 2008 20:53:46 +0000 (+0000) Subject: (binhex-decode-region-internal): Use set-buffer-multibyte rather than X-Git-Tag: emacs-pretest-23.0.90~7244 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca874c230f89fd5ac8cc9aa12b30ff1551108f12;p=emacs.git (binhex-decode-region-internal): Use set-buffer-multibyte rather than setting default-enable-multibyte-characters. --- 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