From: yamaoka <yamaoka>
Date: Fri, 17 Mar 2000 13:28:28 +0000 (+0000)
Subject: * nnweb.el (nnweb-fetch-url): Bind `input-coding-system' and
X-Git-Tag: t-gnus-6_14_1-16~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a3ec1167f4314213640b6c6d3255104f20ec237b;p=elisp%2Fgnus.git-

* nnweb.el (nnweb-fetch-url): Bind `input-coding-system' and
`output-coding-system' for Mule 2.3.
* mail-source.el (mail-source-fetch-imap): Ditto.
* imap.el (imap-ssl-open): Ditto.
* gnus-start.el (gnus-product-read-variable-file-1): Ditto.
---

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 77d7a61..c0ae0f4 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2061,7 +2061,8 @@ The backup file \".newsrc.eld_\" will be created before re-reading."
 					       &rest variables)
   (let (gnus-product-file-version method file-ver)
     (if (or (condition-case err
-		(let ((coding-system-for-read coding))
+		(let ((coding-system-for-read coding)
+		      (input-coding-system coding))
 		  (load (expand-file-name file gnus-product-directory) t t t)
 		  nil)
 	      (error (message "%s" err)))
diff --git a/lisp/imap.el b/lisp/imap.el
index f696698..44707e5 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -436,7 +436,9 @@ If ARGS, PROMPT is used as an argument to `format'."
 		      (cond ((eq system-type 'windows-nt)
 			     (let (selective-display
 				   (coding-system-for-write 'binary)
-				   (coding-system-for-read 'raw-text-dos))
+				   (coding-system-for-read 'raw-text-dos)
+				   (output-coding-system 'binary)
+				   (input-coding-system 'raw-text-dos))
 			       (open-ssl-stream name buffer server port)))
 			    (t
 			     (as-binary-process
diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 4500ed4..3ec9273 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -642,7 +642,9 @@ This only works when `display-time' is enabled."
       (if (and (imap-open server port stream authentication buf)
 	       (imap-authenticate user password buf)
 	       (imap-mailbox-select mailbox nil buf))
-	  (let (str (coding-system-for-write 'binary))
+	  (let (str
+		(coding-system-for-write 'binary)
+		(output-coding-system 'binary))
 	    (with-temp-file mail-source-crash-box
 	      ;; if predicate is nil, use all uids
 	      (dolist (uid (imap-search (or predicate "1:*") buf))
diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 7ca1691..641d9d5 100644
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -315,6 +315,8 @@ and `altavista'.")
 	      (mm-enable-multibyte)
 	      (let ((coding-system-for-read 'binary)
 		    (coding-system-for-write 'binary)
+		    (input-coding-system 'binary)
+		    (output-coding-system 'binary)
 		    (default-process-coding-system 'binary))
 		(nnweb-insert url))
 	      (setq buf (buffer-string)))