Mercurial > emacs

diff lisp/gnus/nntp.el @ 42500:9b68dff3d385

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Thu, 03 Jan 2002 14:51:05 +0000
parents f5c857b7ecf8
children 55e0120deff6
line wrap: on
line diff
--- a/lisp/gnus/nntp.el	Thu Jan 03 11:30:57 2002 +0000
+++ b/lisp/gnus/nntp.el	Thu Jan 03 14:51:05 2002 +0000
@@ -397,8 +397,10 @@
       (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))