# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1096282962 0
# Node ID eebcd044d7bc75ee0a19602650ed0899e00750be
# Parent  0b158db81c28162bcecdfbca3b72b4c782f1808a
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-45

Remove apparently vestigial uses of `mm-hack-charsets'

diff -r 0b158db81c28 -r eebcd044d7bc lisp/gnus/ChangeLog.22
--- a/lisp/gnus/ChangeLog.22	Sat Sep 25 12:05:36 2004 +0000
+++ b/lisp/gnus/ChangeLog.22	Mon Sep 27 11:02:42 2004 +0000
@@ -1,3 +1,9 @@
+2004-09-27  Miles Bader  <miles@gnu.org>
+
+	* mml.el (mml-parse-1): Remove apparently vestigial use of
+	`mm-hack-charsets'.
+	* mm-bodies.el (mm-encode-body): Likewise.
+
 2003-11-17  Kenichi Handa  <handa@m17n.org>
 
 	* mm-util.el (mm-enable-multibyte): Call set-buffer-multibyte
diff -r 0b158db81c28 -r eebcd044d7bc lisp/gnus/mm-bodies.el
--- a/lisp/gnus/mm-bodies.el	Sat Sep 25 12:05:36 2004 +0000
+++ b/lisp/gnus/mm-bodies.el	Mon Sep 27 11:02:42 2004 +0000
@@ -1,6 +1,6 @@
 ;;; mm-bodies.el --- Functions for decoding MIME things
 
-;; Copyright (C) 1998, 1999, 2000, 2001, 2003
+;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -91,8 +91,7 @@
 	    (mm-encode-coding-region (point-min) (point-max) charset)
 	    charset)
 	(goto-char (point-min))
-	(let ((charsets (mm-find-mime-charset-region (point-min) (point-max)
-						     mm-hack-charsets)))
+	(let ((charsets (mm-find-mime-charset-region (point-min) (point-max))))
 	  (cond
 	   ;; No encoding.
 	   ((null charsets)
diff -r 0b158db81c28 -r eebcd044d7bc lisp/gnus/mml.el
--- a/lisp/gnus/mml.el	Sat Sep 25 12:05:36 2004 +0000
+++ b/lisp/gnus/mml.el	Mon Sep 27 11:02:42 2004 +0000
@@ -1,5 +1,5 @@
 ;;; mml.el --- A package for parsing and validating MML documents
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -213,8 +213,7 @@
 			 (list
 			  (intern (downcase (cdr (assq 'charset tag))))))
 			(t
-			 (mm-find-mime-charset-region point (point)
-						      mm-hack-charsets))))
+			 (mm-find-mime-charset-region point (point)))))
 	(when (and (not raw) (memq nil charsets))
 	  (if (or (memq 'unknown-encoding mml-confirmation-set)
 		  (message-options-get 'unknown-encoding)