Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnbabyl.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
536 536
537 (if (and nnbabyl-mbox-buffer 537 (if (and nnbabyl-mbox-buffer
538 (buffer-name nnbabyl-mbox-buffer) 538 (buffer-name nnbabyl-mbox-buffer)
539 (save-excursion 539 (save-excursion
540 (set-buffer nnbabyl-mbox-buffer) 540 (set-buffer nnbabyl-mbox-buffer)
541 (= (buffer-size) (nth 7 (file-attributes nnbabyl-mbox-file))))) 541 (= (buffer-size) (nnheader-file-size nnbabyl-mbox-file))))
542 () ; This buffer hasn't changed since we read it last. Possibly. 542 () ; This buffer hasn't changed since we read it last. Possibly.
543 (save-excursion 543 (save-excursion
544 (let ((delim (concat "^" nnbabyl-mail-delimiter)) 544 (let ((delim (concat "^" nnbabyl-mail-delimiter))
545 (alist nnbabyl-group-alist) 545 (alist nnbabyl-group-alist)
546 start end number) 546 start end number)