Mercurial > emacs
changeset 89986:eebcd044d7bc
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-45
Remove apparently vestigial uses of `mm-hack-charsets'
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 27 Sep 2004 11:02:42 +0000 |
| parents | 0b158db81c28 |
| children | d7211599ad16 |
| files | lisp/gnus/ChangeLog.22 lisp/gnus/mm-bodies.el lisp/gnus/mml.el |
| diffstat | 3 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)
--- 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)