Synch with Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90802f0..074a1aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2000-09-18  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-util.el (gnus-time-iso8601): Correct doc string (four digit
+       year).
+       (gnus-date-iso8601): Ditto.
+
+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/gnus-util.el b/lisp/gnus-util.el
index 2259f09..439dda0 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -343,11 +343,11 @@ Cache the result as a text property stored in DATE."
             time)))))
 
 (defsubst gnus-time-iso8601 (time)
-  "Return a string of TIME in YYMMDDTHHMMSS format."
+  "Return a string of TIME in YYYYMMDDTHHMMSS format."
   (format-time-string "%Y%m%dT%H%M%S" time))
 
 (defun gnus-date-iso8601 (date)
-  "Convert the DATE to YYMMDDTHHMMSS."
+  "Convert the DATE to YYYYMMDDTHHMMSS."
   (condition-case ()
       (gnus-time-iso8601 (gnus-date-get-time date))
     (error "")))

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 40ef8af..9d936c3 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -688,6 +688,10 @@ This only works when `display-time' is enabled."
                (coding-system-for-write 'binary)
                (output-coding-system '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.
+             (set-buffer-multibyte nil)
              ;; remember password
              (with-current-buffer buf
                (when (or imap-password