398 |
(let ((base (coding-system-base x))) |
(let ((base (coding-system-base x))) |
399 |
(+ (if (eq base most-preferred) 64 0) |
(+ (if (eq base most-preferred) 64 0) |
400 |
(let ((mime (coding-system-get base 'mime-charset))) |
(let ((mime (coding-system-get base 'mime-charset))) |
401 |
|
;; Prefer coding systems corresponding to a |
402 |
|
;; MIME charset. |
403 |
(if mime |
(if mime |
404 |
(if (string-match "^x-" (symbol-name mime)) |
;; Lower utf-16 priority so that we |
405 |
16 32) |
;; normally prefer utf-8 to it, and put |
406 |
|
;; x-ctext below that. |
407 |
|
(cond ((string-match "^utf-16" |
408 |
|
(symbol-name mime)) |
409 |
|
16) |
410 |
|
((string-match "^x-" (symbol-name mime)) |
411 |
|
8) |
412 |
|
(t 32)) |
413 |
0)) |
0)) |
414 |
(if (memq base lang-preferred) 8 0) |
(if (memq base lang-preferred) 8 0) |
415 |
(if (string-match "-with-esc$" (symbol-name base)) |
(if (string-match "-with-esc$" (symbol-name base)) |