387 |
(lambda (x) |
(lambda (x) |
388 |
(let ((base (coding-system-base x))) |
(let ((base (coding-system-base x))) |
389 |
(+ (if (eq base most-preferred) 64 0) |
(+ (if (eq base most-preferred) 64 0) |
390 |
(let ((mime (coding-system-get base 'mime-charset))) |
(let ((mime (coding-system-get base :mime-charset))) |
391 |
(if mime |
(if mime |
392 |
(if (string-match "^x-" (symbol-name mime)) |
(if (string-match "^x-" (symbol-name mime)) |
393 |
16 32) |
16 32) |
580 |
base) |
base) |
581 |
(and (coding-system-p preferred) |
(and (coding-system-p preferred) |
582 |
(setq base (coding-system-base preferred)) |
(setq base (coding-system-base preferred)) |
583 |
(coding-system-get preferred 'mime-charset) |
(coding-system-get preferred :mime-charset) |
584 |
(not (assq preferred default-coding-system)) |
(not (assq preferred default-coding-system)) |
585 |
(not (rassq base default-coding-system)) |
(not (rassq base default-coding-system)) |
586 |
(setq default-coding-system |
(setq default-coding-system |
613 |
(let ((l codings) |
(let ((l codings) |
614 |
mime-charset) |
mime-charset) |
615 |
(while l |
(while l |
616 |
(setq mime-charset (coding-system-get (car l) 'mime-charset)) |
(setq mime-charset (coding-system-get (car l) :mime-charset)) |
617 |
(if (and mime-charset (coding-system-p mime-charset)) |
(if (and mime-charset (coding-system-p mime-charset)) |
618 |
(setcar l mime-charset)) |
(setcar l mime-charset)) |
619 |
(setq l (cdr l)))) |
(setq l (cdr l)))) |
708 |
default-sendmail-coding-system |
default-sendmail-coding-system |
709 |
default-buffer-file-coding-system))) |
default-buffer-file-coding-system))) |
710 |
(if (eq coding 'no-conversion) |
(if (eq coding 'no-conversion) |
711 |
;; We should never use no-conversion for outgoing mails. |
;; We should never use no-conversion for outgoing mail. |
712 |
(setq coding nil)) |
(setq coding nil)) |
713 |
(if (fboundp select-safe-coding-system-function) |
(if (fboundp select-safe-coding-system-function) |
714 |
(funcall select-safe-coding-system-function |
(funcall select-safe-coding-system-function |
715 |
(point-min) (point-max) coding |
(point-min) (point-max) coding |
716 |
(function (lambda (x) (coding-system-get x 'mime-charset)))) |
(function (lambda (x) (coding-system-get x :mime-charset)))) |
717 |
coding))) |
coding))) |
718 |
|
|
719 |
;;; Language support stuff. |
;;; Language support stuff. |