From df9fd823c08529f3c08c332a70122551c7630e6a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 8 Jan 2002 10:52:49 +0000 Subject: [PATCH] * nntp.el (nntp-send-buffer): Don't use `mm-with-unibyte-current-buffer'. Use expanded form instead. --- ChangeLog | 3 +++ lisp/nntp.el | 14 ++++++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6bbf276..a8cedd9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2002-01-08 Katsumi Yamaoka + * 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)) -- 1.7.10.4