Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-cache.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
461 (when articles 461 (when articles
462 (gnus-cache-update-active group (car articles) t) 462 (gnus-cache-update-active group (car articles) t)
463 (gnus-cache-update-active group (car (last articles)))) 463 (gnus-cache-update-active group (car (last articles))))
464 articles))) 464 articles)))
465 465
466 (defun gnus-cache-braid-nov (group cached) 466 (defun gnus-cache-braid-nov (group cached &optional file)
467 (let ((cache-buf (get-buffer-create " *gnus-cache*")) 467 (let ((cache-buf (get-buffer-create " *gnus-cache*"))
468 beg end) 468 beg end)
469 (gnus-cache-save-buffers) 469 (gnus-cache-save-buffers)
470 (save-excursion 470 (save-excursion
471 (set-buffer cache-buf) 471 (set-buffer cache-buf)
472 (buffer-disable-undo (current-buffer)) 472 (buffer-disable-undo (current-buffer))
473 (erase-buffer) 473 (erase-buffer)
474 (insert-file-contents (gnus-cache-file-name group ".overview")) 474 (insert-file-contents (or file (gnus-cache-file-name group ".overview")))
475 (goto-char (point-min)) 475 (goto-char (point-min))
476 (insert "\n") 476 (insert "\n")
477 (goto-char (point-min))) 477 (goto-char (point-min)))
478 (set-buffer nntp-server-buffer) 478 (set-buffer nntp-server-buffer)
479 (goto-char (point-min)) 479 (goto-char (point-min))