diff options
| author | Miles Bader <miles@gnu.org> | 2004-09-27 11:02:42 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2004-09-27 11:02:42 +0000 |
| commit | 503815da519a22f858e2341b45f4b97c9795bd70 (patch) | |
| tree | a8e43c030c2fe8e738d80c0b2cf7d12b218e5120 | |
| parent | 8f92d598fb067c498704099b9ae241c086724bb0 (diff) | |
| download | emacs-503815da519a22f858e2341b45f4b97c9795bd70.tar.gz emacs-503815da519a22f858e2341b45f4b97c9795bd70.tar.bz2 emacs-503815da519a22f858e2341b45f4b97c9795bd70.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-45
Remove apparently vestigial uses of `mm-hack-charsets'
| -rw-r--r-- | lisp/gnus/ChangeLog.22 | 6 | ||||
| -rw-r--r-- | lisp/gnus/mm-bodies.el | 5 | ||||
| -rw-r--r-- | lisp/gnus/mml.el | 5 |
3 files changed, 10 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog.22 b/lisp/gnus/ChangeLog.22 index 6ecee80d4d5..4fcde1f3c09 100644 --- a/lisp/gnus/ChangeLog.22 +++ b/lisp/gnus/ChangeLog.22 @@ -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 --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el index 7e95ef3986b..40b920bb70d 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 +;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -91,8 +91,7 @@ If no encoding was done, nil is returned." (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 --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 21633fb4152..c8f1c030acc 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -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 @@ one charsets.") (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) |