Mercurial > emacs
changeset 88502:edebd2ea0273
(sort-coding-systems)
(select-safe-coding-system, select-message-coding-system): Use
:mime-charset, not 'mime-charset.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 14 May 2002 10:16:42 +0000 |
| parents | 5fab07dd0c5e |
| children | d864d6412004 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Tue May 14 08:52:40 2002 +0000 +++ b/lisp/international/mule-cmds.el Tue May 14 10:16:42 2002 +0000 @@ -387,7 +387,7 @@ (lambda (x) (let ((base (coding-system-base x))) (+ (if (eq base most-preferred) 64 0) - (let ((mime (coding-system-get base 'mime-charset))) + (let ((mime (coding-system-get base :mime-charset))) (if mime (if (string-match "^x-" (symbol-name mime)) 16 32) @@ -580,7 +580,7 @@ base) (and (coding-system-p preferred) (setq base (coding-system-base preferred)) - (coding-system-get preferred 'mime-charset) + (coding-system-get preferred :mime-charset) (not (assq preferred default-coding-system)) (not (rassq base default-coding-system)) (setq default-coding-system @@ -613,7 +613,7 @@ (let ((l codings) mime-charset) (while l - (setq mime-charset (coding-system-get (car l) 'mime-charset)) + (setq mime-charset (coding-system-get (car l) :mime-charset)) (if (and mime-charset (coding-system-p mime-charset)) (setcar l mime-charset)) (setq l (cdr l)))) @@ -708,12 +708,12 @@ default-sendmail-coding-system default-buffer-file-coding-system))) (if (eq coding 'no-conversion) - ;; We should never use no-conversion for outgoing mails. + ;; We should never use no-conversion for outgoing mail. (setq coding nil)) (if (fboundp select-safe-coding-system-function) (funcall select-safe-coding-system-function (point-min) (point-max) coding - (function (lambda (x) (coding-system-get x 'mime-charset)))) + (function (lambda (x) (coding-system-get x :mime-charset)))) coding))) ;;; Language support stuff.