[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cache.el

[Juanma Barranquero]

Index: emacs/lisp/gnus/gnus-cache.el
diff -c emacs/lisp/gnus/gnus-cache.el:1.6 emacs/lisp/gnus/gnus-cache.el:1.7
*** emacs/lisp/gnus/gnus-cache.el:1.6   Fri Nov 10 13:09:31 2000
--- emacs/lisp/gnus/gnus-cache.el       Tue Feb  4 08:06:38 2003
***************
*** 307,313 ****
            ;; unsuccessful), so we use the cached headers exclusively.
            (set-buffer nntp-server-buffer)
            (erase-buffer)
!           (let ((coding-system-for-read 
                   gnus-cache-overview-coding-system))
              (insert-file-contents cache-file))
            'nov)
--- 307,313 ----
            ;; unsuccessful), so we use the cached headers exclusively.
            (set-buffer nntp-server-buffer)
            (erase-buffer)
!           (let ((coding-system-for-read
                   gnus-cache-overview-coding-system))
              (insert-file-contents cache-file))
            'nov)
***************
*** 489,497 ****
      (save-excursion
        (set-buffer cache-buf)
        (erase-buffer)
!       (let ((coding-system-for-read 
             gnus-cache-overview-coding-system))
!       (insert-file-contents 
         (or file (gnus-cache-file-name group ".overview"))))
        (goto-char (point-min))
        (insert "\n")
--- 489,497 ----
      (save-excursion
        (set-buffer cache-buf)
        (erase-buffer)
!       (let ((coding-system-for-read
             gnus-cache-overview-coding-system))
!       (insert-file-contents
         (or file (gnus-cache-file-name group ".overview"))))
        (goto-char (point-min))
        (insert "\n")
***************
*** 534,540 ****
        (save-excursion
        (set-buffer cache-buf)
        (erase-buffer)
!       (let ((coding-system-for-read 
               gnus-cache-coding-system))
          (insert-file-contents (gnus-cache-file-name group (car cached))))
        (goto-char (point-min))
--- 534,540 ----
        (save-excursion
        (set-buffer cache-buf)
        (erase-buffer)
!       (let ((coding-system-for-read
               gnus-cache-coding-system))
          (insert-file-contents (gnus-cache-file-name group (car cached))))
        (goto-char (point-min))