Mercurial > emacs
diff lisp/gnus/mm-util.el @ 64736:f62cd60b99ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-513
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 103)
- Update from CVS
2005-08-05 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/mm-bodies.el (mm-encode-body): Use coding system rather than
charset to encode text.
* lisp/gnus/mm-util.el (mm-find-mime-charset-region): Attempt to reduce the
number of charsets if utf-8 is available (XEmacs).
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 05 Aug 2005 08:48:40 +0000 |
| parents | 18a818a2ee7c |
| children | fafd692d1e40 |
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el Fri Aug 05 08:37:44 2005 +0000 +++ b/lisp/gnus/mm-util.el Fri Aug 05 08:48:40 2005 +0000 @@ -766,6 +766,17 @@ (if (and (memq 'iso-2022-jp-2 charsets) (memq 'iso-2022-jp-2 hack-charsets)) (setq charsets (delq 'iso-2022-jp charsets))) + ;; Attempt to reduce the number of charsets if utf-8 is available. + (if (and (featurep 'xemacs) + (> (length charsets) 1) + (mm-coding-system-p 'utf-8)) + (let ((mm-coding-system-priorities + (cons 'utf-8 mm-coding-system-priorities))) + (setq charsets + (mm-delete-duplicates + (mapcar 'mm-mime-charset + (delq 'ascii + (mm-find-charset-region b e))))))) charsets)) (defmacro mm-with-unibyte-buffer (&rest forms)