Mercurial > emacs

comparison lisp/gnus/mm-util.el @ 88660:e532f53e6da0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mm-auto-save-coding-system): Prefer utf-8-emacs coding system to emacs-mule.
author Dave Love <fx@gnu.org>
date Mon, 27 May 2002 14:53:41 +0000
parents 5f1dd0f5e06c
children 3e2e82acc047
comparison
equal deleted inserted replaced
88659:76e06537f60c 88660:e532f53e6da0
153 (defvar mm-text-coding-system-for-write nil 153 (defvar mm-text-coding-system-for-write nil
154 "Text coding system for write.") 154 "Text coding system for write.")
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)
161 'emacs-mule-dos mm-binary-coding-system) 166 'emacs-mule-dos mm-binary-coding-system)
162 'emacs-mule)) 167 'emacs-mule))