diff options
| author | Kenichi Handa | 1997-05-16 00:59:00 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-05-16 00:59:00 +0000 |
| commit | 426591c3ff90afc4f47808b3643a7936a3f94e72 (patch) | |
| tree | 634ab03d87df8517872b5b1c063fbc9655a0d3d9 | |
| parent | 9899214ca9dd4ce61175d30db4530eadeb050ac8 (diff) | |
| download | emacs-426591c3ff90afc4f47808b3643a7936a3f94e72.tar.gz emacs-426591c3ff90afc4f47808b3643a7936a3f94e72.zip | |
Coding system names changed as follows:
internal -> emacs-mule, automatic-conversion -> undecided.
Coding category name changes as follows:
coding-category-internal -> coding-category-emacs-mule.
| -rw-r--r-- | lisp/gnus/gnus-mule.el | 2 | ||||
| -rw-r--r-- | lisp/international/mule-conf.el | 36 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
3 files changed, 21 insertions, 21 deletions
diff --git a/lisp/gnus/gnus-mule.el b/lisp/gnus/gnus-mule.el index aef9e81ca7a..8ee6ae99895 100644 --- a/lisp/gnus/gnus-mule.el +++ b/lisp/gnus/gnus-mule.el | |||
| @@ -208,7 +208,7 @@ coding-system for reading and writing respectively." | |||
| 208 | (add-hook 'message-send-mail-hook | 208 | (add-hook 'message-send-mail-hook |
| 209 | 'gnus-mule-message-send-mail-function)) | 209 | 'gnus-mule-message-send-mail-function)) |
| 210 | 210 | ||
| 211 | (gnus-mule-add-group "" 'automatic-conversion) | 211 | (gnus-mule-add-group "" 'undecided) |
| 212 | (gnus-mule-add-group "fj" 'iso-2022-7) | 212 | (gnus-mule-add-group "fj" 'iso-2022-7) |
| 213 | (gnus-mule-add-group "alt.chinese.text" 'hz-gb-2312) | 213 | (gnus-mule-add-group "alt.chinese.text" 'hz-gb-2312) |
| 214 | (gnus-mule-add-group "alt.hk" 'hz-gb-2312) | 214 | (gnus-mule-add-group "alt.hk" 'hz-gb-2312) |
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index b4f904953bd..5df38af0a8b 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el | |||
| @@ -214,23 +214,23 @@ | |||
| 214 | (vector nil ?= "Do no conversion" nil nil)) | 214 | (vector nil ?= "Do no conversion" nil nil)) |
| 215 | (put 'no-conversion 'eol-type 0) | 215 | (put 'no-conversion 'eol-type 0) |
| 216 | 216 | ||
| 217 | (put 'automatic-conversion-unix 'coding-system 'automatic-conversion) | 217 | (put 'undecided-unix 'coding-system 'undecided) |
| 218 | (put 'automatic-conversion-unix 'eol-type 0) | 218 | (put 'undecided-unix 'eol-type 0) |
| 219 | (put 'automatic-conversion-dos 'coding-system 'automatic-conversion) | 219 | (put 'undecided-dos 'coding-system 'undecided) |
| 220 | (put 'automatic-conversion-dos 'eol-type 1) | 220 | (put 'undecided-dos 'eol-type 1) |
| 221 | (put 'automatic-conversion-mac 'coding-system 'automatic-conversion) | 221 | (put 'undecided-mac 'coding-system 'undecided) |
| 222 | (put 'automatic-conversion-mac 'eol-type 2) | 222 | (put 'undecided-mac 'eol-type 2) |
| 223 | (put 'automatic-conversion 'coding-system | 223 | (put 'undecided 'coding-system |
| 224 | (vector t ?+ "Detect coding-system automatically" nil nil)) | 224 | (vector t ?+ "Detect coding-system automatically" nil nil)) |
| 225 | (put 'automatic-conversion 'eol-type | 225 | (put 'undecided 'eol-type |
| 226 | (vector 'automatic-conversion-unix | 226 | (vector 'undecided-unix |
| 227 | 'automatic-conversion-dos | 227 | 'undecided-dos |
| 228 | 'automatic-conversion-mac)) | 228 | 'undecided-mac)) |
| 229 | 229 | ||
| 230 | ;; Coding systems not specific to each language environment. | 230 | ;; Coding systems not specific to each language environment. |
| 231 | 231 | ||
| 232 | (make-coding-system | 232 | (make-coding-system |
| 233 | 'internal 0 ?= | 233 | 'emacs-mule 0 ?= |
| 234 | "Internal coding system used in a buffer.") | 234 | "Internal coding system used in a buffer.") |
| 235 | 235 | ||
| 236 | (make-coding-system | 236 | (make-coding-system |
| @@ -277,15 +277,15 @@ | |||
| 277 | ;; The other coding-systems are defined in each language specific | 277 | ;; The other coding-systems are defined in each language specific |
| 278 | ;; section of languages.el. | 278 | ;; section of languages.el. |
| 279 | 279 | ||
| 280 | ;; Setting coding system 'automatic-conversion for reading any files. | 280 | ;; Setting coding system 'undecided for reading any files. Though, |
| 281 | ;; Though, compiled Emacs Lisp files (*.elc) should never be decoded | 281 | ;; compiled Emacs Lisp files (*.elc) should never be decoded nor |
| 282 | ;; nor encoded. | 282 | ;; encoded. |
| 283 | 283 | ||
| 284 | (setq coding-system-alist | 284 | (setq coding-system-alist |
| 285 | '((insert-file-contents | 285 | '((insert-file-contents |
| 286 | ("\\.elc$" . (no-conversion . nil)) | 286 | ("\\.elc$" . (no-conversion . nil)) |
| 287 | ("loaddefs.el$" . (no-conversion . nil)) | 287 | ("loaddefs.el$" . (no-conversion . nil)) |
| 288 | ("" . (automatic-conversion . nil))) | 288 | ("" . (undecided . nil))) |
| 289 | (write-region | 289 | (write-region |
| 290 | ("\\.elc$" . (nil . no-conversion)) | 290 | ("\\.elc$" . (nil . no-conversion)) |
| 291 | ("loaddefs.el$" . (nil . no-conversion))))) | 291 | ("loaddefs.el$" . (nil . no-conversion))))) |
| @@ -298,7 +298,7 @@ | |||
| 298 | ;; values are set by the command `setup-language-environment' for each | 298 | ;; values are set by the command `setup-language-environment' for each |
| 299 | ;; language environment. | 299 | ;; language environment. |
| 300 | 300 | ||
| 301 | (setq coding-category-internal 'internal | 301 | (setq coding-category-emacs-mule 'emacs-mule |
| 302 | coding-category-sjis 'sjis | 302 | coding-category-sjis 'sjis |
| 303 | coding-category-iso-7 'iso-2022-7 | 303 | coding-category-iso-7 'iso-2022-7 |
| 304 | coding-category-iso-8-1 'iso-8859-1 | 304 | coding-category-iso-8-1 'iso-8859-1 |
| @@ -315,6 +315,6 @@ | |||
| 315 | coding-category-sjis | 315 | coding-category-sjis |
| 316 | coding-category-big5 | 316 | coding-category-big5 |
| 317 | coding-category-binary | 317 | coding-category-binary |
| 318 | coding-category-internal)) | 318 | coding-category-emacs-mule)) |
| 319 | 319 | ||
| 320 | ;;; mule-conf.el ends here | 320 | ;;; mule-conf.el ends here |
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 6f8353d859e..477502dce0f 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -1403,7 +1403,7 @@ Optional DEFAULT is password to start with." | |||
| 1403 | (replace-match "\n^_")))); 2 chars: "^" and "_" | 1403 | (replace-match "\n^_")))); 2 chars: "^" and "_" |
| 1404 | (or rmail-enable-mime | 1404 | (or rmail-enable-mime |
| 1405 | (not rmail-enable-decoding-message) | 1405 | (not rmail-enable-decoding-message) |
| 1406 | (decode-coding-region start (point) 'automatic-conversion)) | 1406 | (decode-coding-region start (point) 'undecided)) |
| 1407 | (narrow-to-region (point) (point-max)) | 1407 | (narrow-to-region (point) (point-max)) |
| 1408 | (setq count (1+ count))) | 1408 | (setq count (1+ count))) |
| 1409 | ;;*** Mail format | 1409 | ;;*** Mail format |
| @@ -1466,7 +1466,7 @@ Optional DEFAULT is password to start with." | |||
| 1466 | (insert ?\^_) | 1466 | (insert ?\^_) |
| 1467 | (or rmail-enable-mime | 1467 | (or rmail-enable-mime |
| 1468 | (not rmail-enable-decoding-message) | 1468 | (not rmail-enable-decoding-message) |
| 1469 | (decode-coding-region start (point) 'automatic-conversion)) | 1469 | (decode-coding-region start (point) 'undecided)) |
| 1470 | (narrow-to-region (point) (point-max))) | 1470 | (narrow-to-region (point) (point-max))) |
| 1471 | ;; | 1471 | ;; |
| 1472 | ;; This kludge is because some versions of sendmail.el | 1472 | ;; This kludge is because some versions of sendmail.el |