/[emacs]/emacs/lisp/gnus/gnus-cache.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-cache.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by fx, Fri Nov 10 18:09:31 2000 UTC revision 1.6.18.1 by miles, Fri Apr 4 06:20:20 2003 UTC
# Line 307  it's not cached." Line 307  it's not cached."
307              ;; unsuccessful), so we use the cached headers exclusively.              ;; unsuccessful), so we use the cached headers exclusively.
308              (set-buffer nntp-server-buffer)              (set-buffer nntp-server-buffer)
309              (erase-buffer)              (erase-buffer)
310              (let ((coding-system-for-read              (let ((coding-system-for-read
311                     gnus-cache-overview-coding-system))                     gnus-cache-overview-coding-system))
312                (insert-file-contents cache-file))                (insert-file-contents cache-file))
313              'nov)              'nov)
# Line 489  Returns the list of articles removed." Line 489  Returns the list of articles removed."
489      (save-excursion      (save-excursion
490        (set-buffer cache-buf)        (set-buffer cache-buf)
491        (erase-buffer)        (erase-buffer)
492        (let ((coding-system-for-read        (let ((coding-system-for-read
493               gnus-cache-overview-coding-system))               gnus-cache-overview-coding-system))
494          (insert-file-contents          (insert-file-contents
495           (or file (gnus-cache-file-name group ".overview"))))           (or file (gnus-cache-file-name group ".overview"))))
496        (goto-char (point-min))        (goto-char (point-min))
497        (insert "\n")        (insert "\n")
# Line 534  Returns the list of articles removed." Line 534  Returns the list of articles removed."
534        (save-excursion        (save-excursion
535          (set-buffer cache-buf)          (set-buffer cache-buf)
536          (erase-buffer)          (erase-buffer)
537          (let ((coding-system-for-read          (let ((coding-system-for-read
538                 gnus-cache-coding-system))                 gnus-cache-coding-system))
539            (insert-file-contents (gnus-cache-file-name group (car cached))))            (insert-file-contents (gnus-cache-file-name group (car cached))))
540          (goto-char (point-min))          (goto-char (point-min))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.18.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26