766 |
(if (and (memq 'iso-2022-jp-2 charsets) |
(if (and (memq 'iso-2022-jp-2 charsets) |
767 |
(memq 'iso-2022-jp-2 hack-charsets)) |
(memq 'iso-2022-jp-2 hack-charsets)) |
768 |
(setq charsets (delq 'iso-2022-jp charsets))) |
(setq charsets (delq 'iso-2022-jp charsets))) |
769 |
|
;; Attempt to reduce the number of charsets if utf-8 is available. |
770 |
|
(if (and (featurep 'xemacs) |
771 |
|
(> (length charsets) 1) |
772 |
|
(mm-coding-system-p 'utf-8)) |
773 |
|
(let ((mm-coding-system-priorities |
774 |
|
(cons 'utf-8 mm-coding-system-priorities))) |
775 |
|
(setq charsets |
776 |
|
(mm-delete-duplicates |
777 |
|
(mapcar 'mm-mime-charset |
778 |
|
(delq 'ascii |
779 |
|
(mm-find-charset-region b e))))))) |
780 |
charsets)) |
charsets)) |
781 |
|
|
782 |
(defmacro mm-with-unibyte-buffer (&rest forms) |
(defmacro mm-with-unibyte-buffer (&rest forms) |