* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)))