1027 |
;; We should never use no-conversion for outgoing mail. |
;; We should never use no-conversion for outgoing mail. |
1028 |
(setq coding nil)) |
(setq coding nil)) |
1029 |
(if (fboundp select-safe-coding-system-function) |
(if (fboundp select-safe-coding-system-function) |
1030 |
(funcall select-safe-coding-system-function |
(setq coding |
1031 |
(point-min) (point-max) coding |
(funcall select-safe-coding-system-function |
1032 |
(function (lambda (x) (coding-system-get x 'mime-charset)))) |
(point-min) (point-max) coding |
1033 |
coding))) |
(function (lambda (x) |
1034 |
|
(coding-system-get x 'mime-charset)))))) |
1035 |
|
(if coding |
1036 |
|
;; Be sure to use LF for end-of-line. |
1037 |
|
(setq coding (coding-system-change-eol-conversion coding 'unix)) |
1038 |
|
;; No coding system is decided. Usually this is the case that |
1039 |
|
;; the current buffer contains only ASCII. So, we hope |
1040 |
|
;; iso-8859-1 works. |
1041 |
|
(setq coding 'iso-8859-1-unix)) |
1042 |
|
coding)) |
1043 |
|
|
1044 |
;;; Language support stuff. |
;;; Language support stuff. |
1045 |
|
|