2002-01-03 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nntp.el (nntp-send-buffer): Use mm-with-unibyte-current-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3036d1..140998b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-03  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * nntp.el (nntp-send-buffer): Use mm-with-unibyte-current-buffer.
+
        * mm-util.el (mm-use-find-coding-systems-region): New variable.
        (mm-find-mime-charset-region): Use it.
 

diff --git a/lisp/nntp.el b/lisp/nntp.el
index ac2362c..15d7a7d 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -460,8 +460,10 @@ noticing asynchronous data.")
       (set-buffer (nntp-find-connection-buffer nntp-server-buffer))
       (erase-buffer)))
   (nntp-encode-text)
-  (process-send-region (nntp-find-connection nntp-server-buffer)
-                      (point-min) (point-max))
+  (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)))
   (nntp-retrieve-data
    nil nntp-address nntp-port-number nntp-server-buffer
    wait-for nnheader-callback-function))