Disable mutibyte of mail-source-crash-box in the imap case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90802f0..e5d42b5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-18 09:05:46  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mail-source.el (mail-source-fetch-imap): Disable multibyte.
+
 2000-09-17 01:13:46  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * rfc2047.el (rfc2047-q-encoding-alist): Remove = and _ from the

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index f2a431d..d37dde3 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -673,6 +673,10 @@ This only works when `display-time' is enabled."
               (imap-mailbox-select mailbox nil buf))
          (let (str (coding-system-for-write 'binary))
            (with-temp-file mail-source-crash-box
+             ;; In some versions of FSF Emacs, inserting unibyte
+             ;; string into multibyte buffer may convert 8-bit chars
+             ;; into latin-iso8859-1 chars, which results \201's.
+             (mm-disable-multibyte)
              ;; remember password
              (with-current-buffer buf
                (when (or imap-password