# HG changeset patch # User Dave Love # Date 1021371402 0 # Node ID edebd2ea02737b335a0a283c4181c6ea65065736 # Parent 5fab07dd0c5e036a9f92d728e56052fa1a57805e (sort-coding-systems) (select-safe-coding-system, select-message-coding-system): Use :mime-charset, not 'mime-charset. diff -r 5fab07dd0c5e -r edebd2ea0273 lisp/international/mule-cmds.el --- 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.