Commit 1f7d2e14 authored by ShengHuo ZHU's avatar ShengHuo ZHU

* 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.
parent 7d1c4866
2002-01-03 ShengHuo ZHU <zsh@cs.rochester.edu>
* mm-util.el (mm-charset-to-coding-system): Don't setq charset.
* 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.
2002-01-01 ShengHuo ZHU <zsh@cs.rochester.edu>
......
......@@ -281,6 +281,10 @@ prefer iso-2022-jp to japanese-shift-jis:
'(iso-2022-jp iso-2022-jp-2 japanese-shift-jis utf-8))
")
(defvar mm-use-find-coding-systems-region
(fboundp 'find-coding-systems-region)
"Use `find-coding-systems-region' to find proper coding systems.")
;;; Internal variables:
;;; Functions:
......@@ -494,7 +498,7 @@ charset, and a longer list means no appropriate charset."
(let (charsets)
;; The return possibilities of this function are a mess...
(or (and (mm-multibyte-p)
(fboundp 'find-coding-systems-region)
mm-use-find-coding-systems-region
;; Find the mime-charset of the most preferred coding
;; system that has one.
(let ((systems (find-coding-systems-region b e)))
......
......@@ -397,8 +397,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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment