* 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 (file)
--- 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 (file)
--- 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))