Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(select-message-coding-system): New

Browse source 
function.
(set-language-environment-coding-systems): Set
default-sendmail-coding-system.
This commit is contained in:
Kenichi Handa 1998-08-24 01:46:43 +00:00
parent da241b5c3c
commit 46babb23b6
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/international/mule-cmds.el
View file

@ -489,6 +489,29 @@ Please select one from the following safe coding systems:\n"
(setq select-safe-coding-system-function 'select-safe-coding-system)
(defun select-message-coding-system ()
"Return a coding system to encode the outgoing message of the current buffer.
It at first tries the first coding system found in these variables
in this order:
(1) local value of `buffer-file-coding-system'
(2) value of `sendmail-coding-system'
(3) value of `default-buffer-file-coding-system'
(4) value of `default-sendmail-coding-system'
If the found coding system can't encode the current buffer,
or none of them are bound to a coding system,
it asks a user to select a proper coding system."
(let ((coding (or (and (local-variable-p 'buffer-file-coding-system)
buffer-file-coding-system)
sendmail-coding-system
default-buffer-file-coding-system
default-sendmail-coding-system)))
(if (eq coding 'no-conversion)
;; We should never use no-conversion for outgoing mails.
(setq coding nil))
(if (fboundp select-safe-coding-system-function)
(funcall select-safe-coding-system-function
(point-min) (point-max) coding)
coding)))
;;; Language support staffs.
@ -1189,6 +1212,7 @@ specifies the character set for the major languages of Western Europe."
(if priority
(let ((categories (mapcar 'coding-system-category priority)))
(set-default-coding-systems default-coding)
(setq default-sendmail-coding-system default-coding)
(set-coding-priority categories)
(while priority
(set (car categories) (car priority))