diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-12 20:53:46 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-12 20:53:46 +0000 |
| commit | ca874c230f89fd5ac8cc9aa12b30ff1551108f12 (patch) | |
| tree | fc150b4dc3e45b26f95cfb47b9eaaf5de89c4669 /lisp/mail/binhex.el | |
| parent | 058f4002400d8808c5b9f7d99e5c9fb5fdc01697 (diff) | |
| download | emacs-ca874c230f89fd5ac8cc9aa12b30ff1551108f12.tar.gz | |
(binhex-decode-region-internal): Use set-buffer-multibyte rather than
setting default-enable-multibyte-characters.
Diffstat (limited to 'lisp/mail/binhex.el')
| -rw-r--r-- | lisp/mail/binhex.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |