History is binary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc64b0f..ac3b6dc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-19 09:56:07  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-open-history): Open history in binary mode.
+
 2000-05-19  Dave Love  <fx@gnu.org>
 
        * gnus-art.el (gnus-mime-externalize-part): Bind mm-inlined-types,

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 9809bba..5696b68 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -690,11 +690,12 @@ the actual number of articles toggled is returned."
                             (format " *Gnus agent %s history*"
                                     (gnus-agent-method)))))
          gnus-agent-history-buffers)
+    (mm-disable-multibyte) ;; everything is binary
     (erase-buffer)
     (insert "\n")
     (let ((file (gnus-agent-lib-file "history")))
       (when (file-exists-p file)
-       (insert-file file))
+       (nnheader-insert-file-contents file))
       (set (make-local-variable 'gnus-agent-file-name) file))))
 
 (defun gnus-agent-save-history ()