diff options
| author | Miles Bader <miles@gnu.org> | 2005-08-05 08:48:40 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-08-05 08:48:40 +0000 |
| commit | 11e22c4a01e2535ad784e0d122a65837a13ec71c (patch) | |
| tree | a3159549d49d3f75ede9c448f1383599d93cd1cf /lisp/gnus/mm-bodies.el | |
| parent | 97f78c9b71b22ef2a09db90f38512346652583fa (diff) | |
| download | emacs-11e22c4a01e2535ad784e0d122a65837a13ec71c.tar.gz | |
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).
Diffstat (limited to 'lisp/gnus/mm-bodies.el')
| -rw-r--r-- | lisp/gnus/mm-bodies.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el index f58a840fbdd..23900d0cbec 100644 --- a/lisp/gnus/mm-bodies.el +++ b/lisp/gnus/mm-bodies.el @@ -1,6 +1,6 @@ ;;; mm-bodies.el --- Functions for decoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004 +;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004, 2005 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -95,7 +95,8 @@ If no encoding was done, nil is returned." (save-excursion (if charset (progn - (mm-encode-coding-region (point-min) (point-max) charset) + (mm-encode-coding-region (point-min) (point-max) + (mm-charset-to-coding-system charset)) charset) (goto-char (point-min)) (let ((charsets (mm-find-mime-charset-region (point-min) (point-max) |