aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-05-16 00:59:00 +0000
committerKenichi Handa1997-05-16 00:59:00 +0000
commit426591c3ff90afc4f47808b3643a7936a3f94e72 (patch)
tree634ab03d87df8517872b5b1c063fbc9655a0d3d9
parent9899214ca9dd4ce61175d30db4530eadeb050ac8 (diff)
downloademacs-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.el2
-rw-r--r--lisp/international/mule-conf.el36
-rw-r--r--lisp/mail/rmail.el4
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