diff lisp/gnus/mm-util.el @ 42500:9b68dff3d385

* mm-util.el (mm-use-find-coding-systems-region): New variable. (mm-find-mime-charset-region): Use it. * nntp.el (nntp-send-buffer): Use mm-with-unibyte-current-buffer.

--- a/lisp/gnus/mm-util.el	Thu Jan 03 11:30:57 2002 +0000
+++ b/lisp/gnus/mm-util.el	Thu Jan 03 14:51:05 2002 +0000
@@ -281,6 +281,10 @@
   '(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,7 +498,7 @@
   (let (charsets)
     ;; The return possibilities of this function are a mess...
     (or (and (mm-multibyte-p)
-	     (fboundp 'find-coding-systems-region)
+	     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)))