diff options
| -rw-r--r-- | lisp/mail/uudecode.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/mail/uudecode.el b/lisp/mail/uudecode.el index 57ca1ccc629..9ccdceeeb3f 100644 --- a/lisp/mail/uudecode.el +++ b/lisp/mail/uudecode.el | |||
| @@ -94,11 +94,7 @@ used is specified by `uudecode-decoder-program'." | |||
| 94 | (make-temp-name "uu") | 94 | (make-temp-name "uu") |
| 95 | uudecode-temporary-file-directory)))) | 95 | uudecode-temporary-file-directory)))) |
| 96 | (let ((cdir default-directory) | 96 | (let ((cdir default-directory) |
| 97 | (default-process-coding-system | 97 | (default-process-coding-system nil)) |
| 98 | (if (featurep 'xemacs) | ||
| 99 | ;; In XEmacs, nil is not a valid coding system. | ||
| 100 | '(binary . binary) | ||
| 101 | nil))) | ||
| 102 | (unwind-protect | 98 | (unwind-protect |
| 103 | (with-temp-buffer | 99 | (with-temp-buffer |
| 104 | (insert "begin 600 " (file-name-nondirectory tempfile) "\n") | 100 | (insert "begin 600 " (file-name-nondirectory tempfile) "\n") |
| @@ -195,7 +191,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME." | |||
| 195 | (skip-chars-forward non-data-chars end)) | 191 | (skip-chars-forward non-data-chars end)) |
| 196 | (if file-name | 192 | (if file-name |
| 197 | (with-temp-file file-name | 193 | (with-temp-file file-name |
| 198 | (unless (featurep 'xemacs) (set-buffer-multibyte nil)) | 194 | (set-buffer-multibyte nil) |
| 199 | (insert (apply #'concat (nreverse result)))) | 195 | (insert (apply #'concat (nreverse result)))) |
| 200 | (or (markerp end) (setq end (set-marker (make-marker) end))) | 196 | (or (markerp end) (setq end (set-marker (make-marker) end))) |
| 201 | (goto-char start) | 197 | (goto-char start) |