diff options
| -rw-r--r-- | lisp/gnus/mm-util.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 385d09f09e7..f63829eaba8 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el | |||
| @@ -155,6 +155,11 @@ | |||
| 155 | 155 | ||
| 156 | (defvar mm-auto-save-coding-system | 156 | (defvar mm-auto-save-coding-system |
| 157 | (cond | 157 | (cond |
| 158 | ((mm-coding-system-p 'utf-8-emacs) | ||
| 159 | (if (memq system-type '(windows-nt ms-dos ms-windows)) | ||
| 160 | (if (mm-coding-system-p 'utf-8-emacs-dos) | ||
| 161 | 'utf-8-emacs-dos mm-binary-coding-system) | ||
| 162 | 'utf-8-emacs)) | ||
| 158 | ((mm-coding-system-p 'emacs-mule) | 163 | ((mm-coding-system-p 'emacs-mule) |
| 159 | (if (memq system-type '(windows-nt ms-dos ms-windows)) | 164 | (if (memq system-type '(windows-nt ms-dos ms-windows)) |
| 160 | (if (mm-coding-system-p 'emacs-mule-dos) | 165 | (if (mm-coding-system-p 'emacs-mule-dos) |