# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 974995761 0
# Node ID 61c7f30659296817e4beb9dd4c3b15b9a12fed00
# Parent  2be7e99127e549b74e25a68963befe1329d1f5a1
(rfc2047-encode-message-header): Don't encode if
default-enable-multibyte-characters is nil.

diff -r 2be7e99127e5 -r 61c7f3065929 lisp/gnus/rfc2047.el
--- a/lisp/gnus/rfc2047.el	Thu Nov 23 16:08:38 2000 +0000
+++ b/lisp/gnus/rfc2047.el	Thu Nov 23 16:09:21 2000 +0000
@@ -141,11 +141,15 @@
 	      (rfc2047-encode-region (point-min) (point-max)))
 	     ((eq method 'default)
 	      (if (and (featurep 'mule)
+		       (if (boundp 'default-enable-multibyte-characters)
+			   default-enable-multibyte-characters)
 		       mail-parse-charset)
 		  (mm-encode-coding-region (point-min) (point-max)
 					   mail-parse-charset)))
 	     ((mm-coding-system-p method)
-	      (if (featurep 'mule)
+	      (if (and (featurep 'mule)
+		       (if (boundp 'default-enable-multibyte-characters)
+			   default-enable-multibyte-characters))
 		  (mm-encode-coding-region (point-min) (point-max) method)))
 	     ;; Hm.
 	     (t)))