[Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/mm-util.el
diff -c emacs/lisp/gnus/mm-util.el:1.22 emacs/lisp/gnus/mm-util.el:1.23
*** emacs/lisp/gnus/mm-util.el:1.22     Thu Dec 20 14:00:14 2001
--- emacs/lisp/gnus/mm-util.el  Thu Jan  3 01:52:30 2002
***************
*** 1,5 ****
  ;;; mm-util.el --- Utility functions for Mule and low level things
! ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;;    MORIOKA Tomohiko <address@hidden>
--- 1,5 ----
  ;;; mm-util.el --- Utility functions for Mule and low level things
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;;    MORIOKA Tomohiko <address@hidden>
***************
*** 331,340 ****
         )
      charset)
     ;; Translate invalid charsets.
!    ((mm-coding-system-p (setq charset
!                          (cdr (assq charset
!                                     mm-charset-synonym-alist))))
!     charset)
     ;; Last resort: search the coding system list for entries which
     ;; have the right mime-charset in case the canonical name isn't
     ;; defined (though it should be).
--- 331,338 ----
         )
      charset)
     ;; Translate invalid charsets.
!    ((let ((cs (cdr (assq charset mm-charset-synonym-alist))))
!       (and cs (mm-coding-system-p charset) cs)))
     ;; Last resort: search the coding system list for entries which
     ;; have the right mime-charset in case the canonical name isn't
     ;; defined (though it should be).