Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/gnus-cache.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/gnus/gnus-cache.el	Mon Aug 13 09:39:39 2007 +0200
@@ -463,7 +463,7 @@
 	(gnus-cache-update-active group (car (last articles))))
       articles)))
 
-(defun gnus-cache-braid-nov (group cached)
+(defun gnus-cache-braid-nov (group cached &optional file)
   (let ((cache-buf (get-buffer-create " *gnus-cache*"))
 	beg end)
     (gnus-cache-save-buffers)
@@ -471,7 +471,7 @@
       (set-buffer cache-buf)
       (buffer-disable-undo (current-buffer))
       (erase-buffer)
-      (insert-file-contents (gnus-cache-file-name group ".overview"))
+      (insert-file-contents (or file (gnus-cache-file-name group ".overview")))
       (goto-char (point-min))
       (insert "\n")
       (goto-char (point-min)))