[Emacs-diffs] Changes to emacs/lisp/gnus/mm-bodies.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/gnus/mm-bodies.el
diff -c emacs/lisp/gnus/mm-bodies.el:1.7.6.2 
emacs/lisp/gnus/mm-bodies.el:1.7.6.3
*** emacs/lisp/gnus/mm-bodies.el:1.7.6.2        Thu Sep  9 09:36:26 2004
--- emacs/lisp/gnus/mm-bodies.el        Mon Sep 27 11:02:42 2004
***************
*** 1,6 ****
  ;;; mm-bodies.el --- Functions for decoding MIME things
  
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2003
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,6 ----
  ;;; mm-bodies.el --- Functions for decoding MIME things
  
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 91,98 ****
            (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)))
          (cond
           ;; No encoding.
           ((null charsets)
--- 91,97 ----
            (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))))
          (cond
           ;; No encoding.
           ((null charsets)