[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.23 emacs/lisp/gnus/mm-util.el:1.24
*** emacs/lisp/gnus/mm-util.el:1.23     Thu Jan  3 01:52:30 2002
--- emacs/lisp/gnus/mm-util.el  Thu Jan  3 09:51:05 2002
***************
*** 281,286 ****
--- 281,290 ----
    '(iso-2022-jp iso-2022-jp-2 japanese-shift-jis utf-8))
  ")
  
+ (defvar mm-use-find-coding-systems-region
+   (fboundp 'find-coding-systems-region)
+   "Use `find-coding-systems-region' to find proper coding systems.")
+ 
  ;;; Internal variables:
  
  ;;; Functions:
***************
*** 494,500 ****
    (let (charsets)
      ;; The return possibilities of this function are a mess...
      (or (and (mm-multibyte-p)
!            (fboundp 'find-coding-systems-region)
             ;; Find the mime-charset of the most preferred coding
             ;; system that has one.
             (let ((systems (find-coding-systems-region b e)))
--- 498,504 ----
    (let (charsets)
      ;; The return possibilities of this function are a mess...
      (or (and (mm-multibyte-p)
!            mm-use-find-coding-systems-region
             ;; Find the mime-charset of the most preferred coding
             ;; system that has one.
             (let ((systems (find-coding-systems-region b e)))