diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/binhex.el | 3 | ||||
| -rw-r--r-- | lisp/mail/uudecode.el | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/binhex.el b/lisp/mail/binhex.el index e131db76af8..4d80d021399 100644 --- a/lisp/mail/binhex.el +++ b/lisp/mail/binhex.el @@ -221,7 +221,8 @@ If HEADER-ONLY is non-nil only decode header and return filename." (goto-char start) (when (re-search-forward binhex-begin-line end t) (setq work-buffer (generate-new-buffer " *binhex-work*")) - (with-current-buffer work-buffer (set-buffer-multibyte nil)) + (unless (featurep 'xemacs) + (with-current-buffer work-buffer (set-buffer-multibyte nil))) (beginning-of-line) (setq bits 0 counter 0) (while tmp diff --git a/lisp/mail/uudecode.el b/lisp/mail/uudecode.el index 335e1e10c47..b1c2a7be41d 100644 --- a/lisp/mail/uudecode.el +++ b/lisp/mail/uudecode.el @@ -216,7 +216,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME." (skip-chars-forward non-data-chars end)) (if file-name (with-temp-file file-name - (set-buffer-multibyte nil) + (unless (featurep 'xemacs) (set-buffer-multibyte nil)) (insert (apply 'concat (nreverse result)))) (or (markerp end) (setq end (set-marker (make-marker) end))) (goto-char start) |