diff options
Diffstat (limited to 'lisp/gnus/uudecode.el')
| -rw-r--r-- | lisp/gnus/uudecode.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/uudecode.el b/lisp/gnus/uudecode.el index f47a8e90c3a..616348e899f 100644 --- a/lisp/gnus/uudecode.el +++ b/lisp/gnus/uudecode.el | |||
| @@ -100,7 +100,11 @@ used is specified by `uudecode-decoder-program'." | |||
| 100 | (make-temp-name "uu") | 100 | (make-temp-name "uu") |
| 101 | uudecode-temporary-file-directory)))) | 101 | uudecode-temporary-file-directory)))) |
| 102 | (let ((cdir default-directory) | 102 | (let ((cdir default-directory) |
| 103 | default-process-coding-system) | 103 | (default-process-coding-system |
| 104 | (if (featurep 'xemacs) | ||
| 105 | ;; In XEmacs, `nil' is not a valid coding system. | ||
| 106 | '(binary . binary) | ||
| 107 | nil))) | ||
| 104 | (unwind-protect | 108 | (unwind-protect |
| 105 | (with-temp-buffer | 109 | (with-temp-buffer |
| 106 | (insert "begin 600 " (file-name-nondirectory tempfile) "\n") | 110 | (insert "begin 600 " (file-name-nondirectory tempfile) "\n") |