/[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.7.6.2 by miles, Thu Sep 9 09:36:25 2004 UTC revision 1.7.6.3 by miles, Wed Sep 29 07:22:15 2004 UTC
# Line 125  it's not cached." Line 125  it's not cached."
125            (overview-file (gnus-cache-file-name            (overview-file (gnus-cache-file-name
126                            (car gnus-cache-buffer) ".overview")))                            (car gnus-cache-buffer) ".overview")))
127        ;; write the overview only if it was modified        ;; write the overview only if it was modified
128        (when (buffer-modified-p buffer)        (when (and (buffer-live-p buffer) (buffer-modified-p buffer))
129          (save-excursion          (with-current-buffer buffer
           (set-buffer buffer)  
130            (if (> (buffer-size) 0)            (if (> (buffer-size) 0)
131                ;; Non-empty overview, write it to a file.                ;; Non-empty overview, write it to a file.
132                (let ((coding-system-for-write                (let ((coding-system-for-write

Legend:
Removed from v.1.7.6.2  
changed lines
  Added in v.1.7.6.3

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