From: yamaoka <yamaoka>
Date: Tue, 8 Jan 2002 10:52:49 +0000 (+0000)
Subject: * nntp.el (nntp-send-buffer): Don't use `mm-with-unibyte-current-buffer'.
X-Git-Tag: t-gnus-6_15_5-01-quimby~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=df9fd823c08529f3c08c332a70122551c7630e6a;p=elisp%2Fgnus.git-

* nntp.el (nntp-send-buffer): Don't use `mm-with-unibyte-current-buffer'.
 Use expanded form instead.
---

diff --git a/ChangeLog b/ChangeLog
index 6bbf276..a8cedd9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-08  Katsumi Yamaoka <yamaoka@jpl.org>
 
+	* lisp/nntp.el (nntp-send-buffer): Don't use
+	`mm-with-unibyte-current-buffer'.  Use expanded form instead.
+
 	* lisp/gnus-art.el (gnus-treatment-function-alist): Move X-Face
 	stuff down after unfolding stuff.
 
diff --git a/lisp/nntp.el b/lisp/nntp.el
index e01317b..a0ff4ae 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -490,10 +490,16 @@ noticing asynchronous data.")
       (set-buffer (nntp-find-connection-buffer nntp-server-buffer))
       (erase-buffer)))
   (nntp-encode-text)
-  (mm-with-unibyte-current-buffer
-    ;; Some encoded unicode text contains character 0x80-0x9f e.g. Euro.
-    (process-send-region (nntp-find-connection nntp-server-buffer)
-			 (point-min) (point-max)))
+  (let ((multibyte (and (boundp 'enable-multibyte-characters)
+			(symbol-value 'enable-multibyte-characters))))
+    (unwind-protect
+	;; Some encoded unicode text contains character 0x80-0x9f e.g. Euro.
+	(progn
+	  ;; `set-buffer-multibyte' will be provided by APEL for all Emacsen.
+	  (set-buffer-multibyte nil)
+	  (process-send-region (nntp-find-connection nntp-server-buffer)
+			       (point-min) (point-max))))
+    (set-buffer-multibyte multibyte))
   (nntp-retrieve-data
    nil nntp-address nntp-port-number nntp-server-buffer
    wait-for nnheader-callback-function))