summaryrefslogtreecommitdiff
path: root/lisp/gnus/mm-bodies.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2005-08-05 10:57:36 +0000
committerMiles Bader <miles@gnu.org>2005-08-05 10:57:36 +0000
commit5e10f34207ff594cd6570928bc0292a7b53297b8 (patch)
treed03b31da4d83d4a49fac3162e5481b77849754d5 /lisp/gnus/mm-bodies.el
parent07bd7822113da5ae28d0db471453622a2ed5d6cd (diff)
parent11e22c4a01e2535ad784e0d122a65837a13ec71c (diff)
downloademacs-5e10f34207ff594cd6570928bc0292a7b53297b8.tar.gz
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-77
Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 504-513) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: .cvsignore: Add `lock'. * gnus--rel--5.10 (patch 99-103) - Update from CVS
Diffstat (limited to 'lisp/gnus/mm-bodies.el')
-rw-r--r--lisp/gnus/mm-bodies.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el
index 3e9766c3d41..b4debfe718f 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))))